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. LORD PROGRAM INTO MEMORY (SEE SECTION 2.) 
=! [OAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 
3: REWIND SOTH DRIVES 
3: LOAD ADDRESS 200. 
5: SET SWITCHES (SEE SECTICN 5.1) 
&: PRESS START. 
7: THE PROGRAM WILL LOOP & TTY BELL WILL RING ONCE EVERY 
FASS, IF SWc10=0. 
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DRIVE SELECTION 

STARTING THE FRO Seam, AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF 5 VES ™ i “5” 0 

IF Toe MEDIUM IS CASSETTE WITH STANDARD VECTOR 
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CONTROL G THIS WILL ALLOW THE TTY 10 ENTER DATA INTO 
i76 at sfiettes POINTS RITHIN THE PROGRAM 


) THE MACHINE WILL THEN TYPE: SHREXXXAXXNEW= (XXXXXX IS THE CCTAL CONTENTS 
OF THE SOFTWGRE SWITCH REGISTER. } 
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oF THE FOLLOWING AT THE TTY: 
&) TYPE A NUMBER TO SE LOADED INTO LOC. 178 FOLLOWED BY A <CR>. 
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HILL BE ALLOWED) x 7 

IF & (CR) IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 
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SCOPE 

THIS SUBROUTINE CALL (VIA AN IST INSTRUCTION) IS PLACED SETHEEN 
EACH TEST IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING 
ADDRESS OF EACH TEST IN LOCATION “$LPADR" AND “SLPERR™ AS IT Is 
BEING ENTERED. f 

TTHIS ROUTINE SUPPORTS THE S-W SWITCH REG FUNCTIONS 


TRAPCATCHER 
i 3 +e - “HLT SEQUENCE IS REPEATED FROM LOC. 0! 
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CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED 
TAT THE DEVICE TRAP VECTOR +2. 


HIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
. ERRORS. (REFER TO 6.) 
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TYPE (STYPE) 
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AETER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT 1 5 URcrs0) = NUMBER OF BYTES SER BLOCK 
HALT € ---SUIR<7:0> = PATTERN DESIRED 
HALT 3 --- SWR<15:0> = OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE “GAP TIME MONO” 
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ERRORS 


THERE ARE A aes OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM. WHEN AN ERROR 5, ENCOUNTERED THE CALL TO 

THE ERROR ROUTINE IS MADE AND IF_SW<13> 1S NOT 

SET_AN ERROR MESSAGE PERTAINING TO_ THE ERROR WILL SE 
TYPED. EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING: 


AN ERROR MESSAGE 
A DATA HEADER 
- BATA STRING 


Senbn TQ THE LISTING. seen SERRTS FOR THE DIFFERENT 
RRORS THAT CAN OCCUR 


RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR M 
CASSETTE IS LOADED IN THE DRIVE(S) TG SE T 
ENABLED. 
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EXECUTION TIME 


THE FIRST PASS TAKES APPROXIMATELY iC0O SECONDS ALL 
SUBSEQUENT PASSES TAKE APPROXIMATELY 475 SECONDS. 


STACK POINTER 

STACK IS INITIALLY SET TO 1100. 

PASS COUN 

A PROGRAM PASS THRU COUNT IS KEPT IN “SPASS”. 

ITERATIONS 

THE FIRST PASS OF THE PROGRAM WILL + hg ey INHISIT 
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM FUL a 
(Epg0 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST), 

SPECIAL REGISTERS 
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TABLE OF CONTENTS 
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GENERAL INFORMATION ASCUT THE TALi’TUEC CASSETTE 
ACORESS MNEMONIC DESCRIPTION 


777500 TACS CONTROL AND STATUS REGISTER 
777502 TADE DATA BUFFER REGISTER 
260 TAVEC INTERRUPT VECTOR 
TRCS REGISTER DESCRIFTION 
INIT 

SIv NAME STSTE READ AND/CR WRITE? 
is ? READ ONLY 
14 Bae HECK ERROP 0 READ ONL 
12 CLEAR LEADER ? READ ONLY 
le BRITE LOC ? REQD ONLY 
ji FILE GAP 0 READ ONLY 
iQ TIMING ERROR fe READ ONLY 
os OFF LINE ? READ ONLY 
8}=) UNIT SELECT 9 ag WRITE 
67 TRANSFER REQUEST 0 READ ONLY 
O& INTERRUPT ENABLE 0 READ/WRITE 
0s READY { READ ONLY 
34 IL8S 7 0 READ/WRITE 
93 FUNCTION BIT C2 0 READ/WRITE 
De FUNCTION BIT 01 0 READ /WRITE 
fe FUNCTION BIT 00 0 READ /WRITE 

O=WRITE-F ILE-GAP 

sale 

3=BACK SPACE FILE GAP 

4=BACK SPACE BLOCK GAP 

S=SPACE FORWARD FILE GAP 

&B=SPACE FORWARD BLOCK GAP 

7=REWIND 
60 SIT 0 WRITE ONLY! 
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ee  peenaeece ERSLILFLELSSSLEA FLAS SILA SSFEFHFSEFF FFF FFFFLEF FS 
SSETTL OPERATIONGL SWITCH SETTINGS 
ee 
:* SWITCH USE 
°e$  -ee572e= jj s#eeeeneneeoceoee coees 
“he 15 HALT ON ERROR 
34 i4 LOOP _ON TEST 
he 13 LRIBIT ERSOR TYPEOUTS 
:* li INHIBIT ITERATIONS 
;# iQ BELL ON ERROR 
he 3 LOOP ON ERROR 
:* 8 L ON TEST IN SWR<7:9 
he ? LOCK ON CURRENT CRIVE TONE Y VALIO WITH MANUAL LOOPING) 


esiitisiesissatiiisiiittiitiitittttrittriticertrisrssetsssers: 
SSTTL BASIC DEFINITIONS 


pine tt TAL lames OF THE STACK POINTER ##4 1100 ### 


il 
EQUIV EMT, ERROR ;:SASIC DEFINITION OF ERROR CALL 
VEGUIV [OT SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


; #MISCELI ieee JS DEFINITIONS 
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HT li s+ CODE FOR HORIZONTAL TAB 
LF= le :CODE FOR LINE FEE 
CR= 1S i SOE FOR CARRIAGE RETURN 
cRLF= 200 ::CO0E FOR CARRIAGE RETURN-LINE FEED 
Pcs 177776 ::PROCESSOR STATUS WORD 
.EQUIV PS, PSH 
STKLMT= 17?°774 :;STACK LIMIT REGISTER 
PrROs 17778 2 ; ;PROGRAM INTERRUPT REQUEST REGISTER 
OSWR= 7575 [HARDWARE SWITCH REGISTER 
DOISP= ee :: HARDWARE BISPLAY REGISTER 
,#SENERAL PURPOSE REGISTER DEFINITIONS 
ao= ;;GENERAL REGISTER 
Ris x *: GENERAL REGISTER 
Re= 12 ;;GENERAL REGISTER 
R3= aC} ;;GENERAL REGI 
Ru “4 ;;GENERAL REGISTE 
eS “5 -:GENERAL REGISTER 
Fb: i ;;GENERAL REGIS 
R7= ; GENERAL REGISTER 
LEQUIV fe ce i tetack & OINTER 
“EQUIV R7;PC : BROGRAM COUNTER 
-*PRIORITY LEVEL DEFINITIONS 
Peo= oD PRIORITY LEVEL 0 
PRi= 4 >:PRIORITY LEVEL 1 
PRe= 190 ::PRIORITY LEVEL 2 
PR3= = «440 ::PRIORITY LEVEL 3 
PRu= 2 an} *:PRIORITY LEVEL 4 
PRE= 240 ;;PRIORITY LEVEL 5 
PRE= 300 :PRIORITY LEVeL & 
PR7= © 340 ::PRIORITY LEVEL 7 
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BASIC DEFINITIONS SEG 
199095 cuis=  1uo900 
040955 Suiy= 40000 
DEOG0 SWig= 20000 
010000 SWle= 10000 
O04O0) SWll= 800 
002000 Swi9= 2000 
v1 900 SWOS= i000 
DODD SWOS= 400 
OCI200 Cwo7= 200 
003150 SWob= = 100 
OOCo40 SWOS= 9-4 
OOco20 SWO4= = 20 
690010 cwO3= 10 
DUCCO4 SWOes 4 
£59502 cWwol= 2 
JoSoU SWOd= i 

EQUIV SWO3, SWS 
TEQUIV 5yO8) Swe 
SEQUIV $WO7; 5W7 
-EQUIV SWOE, SWE 
~EQUIV § SWOS, SWS 
TEQUIV S04? Sw 
EQUIV SWO3,SW3 
EQUIV SWO02, SWe 
EQUIV SWO1,SW1 
-EQUIV SWOO, SWC 
s#DATA BIT DEFINITIONS (BITCO TO SITiS) 

109000 61T1S= 100900 

40000 EIT14= 40000 
ve09C0 BITi3= 20000 
010008 BITl2= 10000 
004990 BITll= 4600 
C2009 GIT1G= 2000 
001009 BiTo9= 1900 
9054S BITOs= 409 
099200 BITO7= 200 
00:00 BITOb= 100 
OO0043 BITOS= 40 
OooS20 BITO¥= 20 
909019 BITO3= 10 
000004 BIT0e= 4 
oOoo02 BITOl= 2 
00980} BITOo= 1 

-EQUIV BI70S,BiT9 
-EQUIV BITCE, BITS 
“EQUIV BITO7,B1T7 
-EQUIV SITO6,BITE 
-EQUIV BI1TCS,B1TS 
-EQGUIV BITO4,BIT4 
-EGUIY B1T03,8I1T3 
-EQUIV 81T02,81Te 
-EGUIV BITO1,B81T1 
-EGUIY B1700,B1T0 
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To £OG3C TES’ (PART 2) MRINOEC}-11-DZTRB-C MACYLI 27(732) 19-AUG-76 13:53 PAGE 5 SES C018 
ASIC DEFINITIONS SES OCis8 
sia. EREVECS 4 ss TIME OUT AND OTHER ERRORS E 
YOCO19 RESVEC= 10 s RESERVED BND ILLEGSL INSTRUCTIONS 
000014 TBI TVECS14 Tot 
C0091" TRIVECS 14 +; TRACE TRAP 
vLOUs4 BPTVEC= 14 j BREAKPOINT TRAP (SPT) 
OOobeC IOTVEC= 20 3 INP UT/OUTPUT TRAP (I0T) ##SCOPEss 
JOUVE FURVECS 24 ;;POWER FAIL 
090030 EMTVEC= 30 Be lb TRAP (EMT) ##ERnRORss 
o0o9S4 TRAPVEC=S4 7:"TRAP" TRAP 
DUCED TRVECS 60 ssTTY AM Ah VECTOR 
USC0S4 TEVECS 54 iy Try F RIWTER VECTOS 
wOL249 PIRGVECse40 ::PROGRAM INTERRUPT BEQUEST VECTOR 


+0 <0 =p 2 Be Dope 
COcntowouUnn 


“p-<8 «5 «8 
“IOP UE Catt 
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Gone 09.00D 


MOO OOOO OOWOoOMmMnM 


650 +0 86 2088-6 - CIC ICICI 
C.000 “JOP O16 Gun OO. 00 YOU Gore 03.000 OP ot 


ADIADIARIAUIAUIALIANIADLAPLAUIALIACLARIAUIANI ANID ASIASI AIL AS Oo eee ed 
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Tide. 


TES’ .FaST 2) MAINDEC“11-O2TRE-c¢ MACY11] 27(7Sz) 19-AUG-76 11:51 PAGE & SES 
Tell DEFINITIONS se3 6 
sTALL FUNCTIONS ? 
O0090G WE Gs 0 sWRITE FILE GAP FUNCTION 
OO00oe WRITE= 2 ;WRITE FUNCTICH 4 
DOO9D4 READ= 4 ;RERD FUNCTION 
OvOCoE BSFG= 6 : BACK SPACE FILE GGP FUNCTION 
C0001 gsou- 1c : Back SPACE BLOCK GAP FU WeTzeN 
900Cie SFFG= le : SPACE FWO FILE GAP FUNCTICH 
OO0018 SFBG= 14 sEPACE FWD BLOCK GAP Pune tion 
COOOLE REWIND= 16 sREWIND FUNCTION 
: PETerTrererrrrrrrrrrrrrrrrirrrtrcttreritreerrterterrer tt retire ree: 
nan i TAil BIT ASSIGNMENT 
190009 ERROR: BSITIS 
O¥OCO9 FRCERR= BIT14 
C2eooce LEAQDER= BITI3 
010080 WRTILOCK=8ITl2 
D408 FGAP= BITil 
Oeeco0 TIMERR= BITIO 
001903 OFFLINE=BITOS 
00940 UNIT=  BITOS 
C9200 TR.REQ= BITO? 
000100 INT.EN= BITOE 
Coooso READY= BITOS 
ocooe0 ILeS= 8ITC4 
0800:0 FUNC2= BITO3 
0059004 FUNCI= B8ITOe 
goosoe FUNCC= BITOl 
ejalalniepl GO= BITOO 
DOCo1& FUNCTION= FUNCE+FUNCL+FUNCO 
SLASLILAAASLTATALEL LEAPED EAPALEASALEESLAAGAAASTATAAATAAE LDA ATEPAAAA AAAS 
SALA LE A 
SOFLLATTLELALL EDEL TATEL ITAL DPELPPELELATDEATLALELLLEDALEAEAEA AA SES AAS EA EA 
- :SPECIAL REGISTERS 
JO3093 OF RIVES “3 :R2 CONTAINS pe DRIVE UNDER TEST 
JOS oS4 Tacs= “4 sR4¥ IS USED SS A POINTER TO THE TACS REGISTER 
OO oous TACB= x§ sRS IS USED AS A POINTER TO THE TADS REGISTER. 


PPA AAAI Ait i thd 4; FEEETELEPITEPATTELTTETELEEPTTTT EES 
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ASIC LOGIC TEST (PART 2) MAINDEC-1i-DZTRE-C MACY11 27(732) 19-GUG-76 11:5; Face 7 Se3 C0ec 
~NEW TSSP IOTCRES SES 0020 
.SETTL TRAP CATCHER 
OS000C 2 
s#ALL UNUSED LOCATIONS FROM 4 = 776 peel A ",+2,HALT” 
seSEGQUENCE TO CATCH ILLEGAL TRAPS +m IN 
:#LOCATION O CONTA! 
990174 ~=l74 
O00174 00090 OISPREG: ee 0 3; SOFTWARE DISPLAY REGISTER 
093:7& ov0OG00 CWREG: 0 »: SOFTWARE SWITCH REGISTER 
ee . SBTTL Si ARTING pe i Alaa 
o00209 GO00137 001336 SSEGIN :;JUMP TO STARTING ADDRESS “4 PROGRAM 
050204 900137 001370 THe SRBECING ;SELECT DRIVE(S) BEFORE STARTING TEST 
080219 3? OO1S7E Ime asSEGINS SELECT DRIVE(S) AND ADORESSES BEFORE TESTING 
CC8e14 900137 901404 IMP asBEGINY : SETUP FOR MANUAL LOOPING 
SO0220 000137 013776 IMP ashe GSUB : WRITE FILE GAP FROM BOT TO EOT 
COees OOCI3S7 O140be2 IMP asWRTSUS WRITE CONTINUOUS BLOCKS OF DATA 
005230 0127 014150 JMP aaeROSuUB iR AB CONTINUOUS BLOCKS OF DATA 
000234 000137 914230 IMP DeWGPBLK RITE FILE D A BLOCK CF DATA 
OSc240 O09i37 91433 IMP asRGPBLK sEERD | BLOCK OF DATA AND INTO A FILE G 
COde44 COOI37 Cisseé IMP aeSFFGSS Sq CE FWO FILE GAP FROM BOT TO EOT 
CO02e58 OO0l37 O14Sle IMP aeSSFSss "BACK SPACE FILE SAPS 


ILLES TERRUPTS 
NE-0 TO CATCH IMPROPERLY LOADED VECTORS 
| 


=. . -—ameee nae -*- aa * ts. wee ~ a -~ ~- --- = 
Als BRSIC LOGic TES” (FRE: MINCE C=] 1 “Dc TRESL ACYL1 e7(732) lL9-AUG@-76 Ll:S. Pee S 
a —. SALA: © = Fees 
we 1 MSr ea wu 6 Aiwie eo 
- 
4s 
43 SLLPEIL ET PP OPEL EPI ELLLATITA TS LALT TT LAL SITES / / Ji Afi 
as : EI LL Sf J Ads / FREE E Sa 
- 
“2 
‘s ‘haa so utes pDAcTTNEe CON Be tTactien 7 
a 3 THE FOLLOWING ROUTINES CAN BE TOGGLED IN 
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sy 


oe we as a a. P , , A/S J , Tae sy , 
FLT SIFTER E RIS EL TS ELE EE ROSELLE ELLE 3 rJPEF LILES ELF 


a ss 


ATI ARIARISRI API OP AS Ue a 
Co.000 “ICP OE G09 09.0 0D © OP UE. GIO. 00D 


5 En 

5 THE FOLLOWING ROUTINES (LOOP1, LOOP2. & LOOP2) CAN GE TOGGLEC 
IN WHEN IT IS IMPOSSIBLE TO LUAD THE DIAGNOSTICS 

= NOTE: ORE USING THESE ROUTINES INSURE THAT FS.F4,5 RS 


SEFORE U 
ARE SETUP PROPERLY. 


*# NOTE: IF USING SOFTWARE SWITCH REGISTER 
LOCATION SWR (21140) MUST CONTAIN 


76). 
#*% PUT VALUE INTO 176 ### 
** REGISTERS 3,4,85 MUST BE SETUPss# 
4% VIA MOVE INSTRUCTIONS #4 
Ras 9 IF USING DRIVE A 
40D IF USING DRIVE B 
Ry= TAL! STATUS REG ADDRESS (TACS 177502) 
cs TALL DATA BUFFER ADDRESS (TADB 177502) 
LOOP] WILL LOAD THE SWITCH REGISTER INTO THE TACS. 


LOCP2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END-OF-TAPE(EOT). 


SOO CP Oe OP OOP Ce Carri 


INI 


wate TATIARIAUIARIANIANIALIAUIAIIANI AIAN ASI AR) 
GUN.) = Cor Jota SOIT 


27 LOOP2 WILL READ TO EOT. DATA WILL GO TO RQ. 

4 

£5 NOTE: LOOP2 AND LOOP3 WILL REWIND WHEN EOT IS REACHED AND 
zt THEN START OVER. 

zs by FREEERERE REPRE EER ERED ERERER ERE EERE SEER ERE EERE LER ER EERE RARER EERE 
286 sLOAD SWITCH REGISTER INTO THE TACS 

287 5 FEEERAEAERERERERRREEEER EERE REL RE REA RE REEL AE RAR ERED ELTE AEA ER ER 


oo0s00 .2500 
oocsoo 017714 ocoss4 LOOPL: MOV JSWR, ITACS sLOAD TACS 
eosso4 000775 BR Loors LOOP 


rororurororon 
0 uu LOD Oo 
4-c9rueOu000 
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wt at Stet sprite tet or 
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C LOGIC TEST (PART 2) MAINDEC-11-D2TAB-¢ ~ gMACYIL 27752) IG-AUG-7E 11:5) PAGE § SEG Cl¢e 
id WRITE SWITCH REGISTER ON TREE FROM BOT TO EOT SEC O22 


pL RRR RAR SERE SELES SRE ESSE SSERE SESE ESE SL CLEFEELELRFA FSF SE FFE FFF SSF 


;WRITE SWITCH REGISTER ON TAPP. FROM BCT TO ECT 
pL RRRERRAEA FASS EE PEES ERR REA ESE R EERE EERE SE EEEEEERLELELERE LS ES ESD 


020690 2600 
0609 900005 LOOP2: RESET ;CLEAR_ALL FLAGS 
S002 O10314 _ MOV ORIVE, JTACS SELECT DRIVE 
C00s04 1le714 o0oci7 MOV SREWIND!GODTACS :60 10 B ‘ 
O0081¢ Ose7is ocoo4o if: RIT SREADY, DTACS WAIT TILL READY COMES UP 
500614 O01775 BEQ 1 
N00816 112714 900003 MOVE © BWRITE!GO,TACS ;START @ WRITE 
Oo0622 195714 23: TST aTACS :CHECK FOR TRANSFER REQUEST 
O0062e4 100003 BPL 33 :BR IF NOT SET 
N00826 O17715 o00306 MOV TSR, ITADS SEND DATA TO TALL 
500632 990773 BR : LOOP 
890634 032714 ocooo4c 33 BIT READY, ATACS :DID READY SET? 
050640 901257 ENE Logee ;START CVER IF YES 
Ooce42 O007E7 BR LOOP 


c paw 


5g RRL AKE SEL EFERLR ERE REFERER E RSE RFF SE RAL ELESSSSELE LEE SSL ERS EFEELATEF 


;READ FROM BOT TO EOT 
pL EFERSEERERRERES ER SEEREAEFLEDD REF ERERER EEE EELER EERE REESE REES ES 


900709 =700 
500700 900095 LOOPS: RESET ;CLEAR ALL FLAGS 
COG70e 010314 MOV DRIVE, aTACs ;SELECT DRIVE 
000704 112714 090017 MOV. SREWIND!GO, aThCS ;START A REWIND ‘ 
000710 O3e714 900040 1S: BIT BREAD’, aTACS ;WAIT ON REWIND TO FINISH 
909714 001775 BEG 
099716 112714 O00005 MOVE #READ! GO, aTACS ;START A READ 
O0O7ee 105714 2s: TST aTACs ;CHECK TRANSFER REQ 
0007e4% 100052 BPL 33 ;8R IF _NOT SET 
008726 011500 MOV @TACE, RO ;PICKUP THE DATA 
098739 900774 BR 2 ; 
O0073e 022714 O00040 3$: BIT sREADY,JTACS ;CHECK READY 
clc736 O01SE0 BNE LOOP3 ;START OVER 
COS74Q 6300770 SR es ;LO0P 
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1 Basic 
REC. NEN 

33? 

so8 

333 

340 

sai 

342 

343 

344 001100 
s¥5 001106 
346 001192 
347 001103 
348 001104 
348 001106 
350 001110 
351 O0lile 
3S2 001114 
3S3 001115 
3$4 001116 
355 001120 
355 O0llee 
35/7 - 001124 
358 001126 
353 001130 
369 O9113e 
261 O01134 
st2 001135 
363 001136 
384 901140 
3&5 901142 
st& O01144 
3&7? O0O1146 
268 001150 
3839 00115e 
370 091154 
371 O01155 
sve 001156 
273 001157 
274 O01150 
375 

37& O01! 
37? 901164 
378 OOlIE6 
273 001170 
380 001172 
28i 001176 
382 001177 
383 001200 
384 

285 001202 
238 001204 
287 

388 001206 
289 001210 
330 OOlele 
331 081214 
332 O0l2leé 
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wwe | 
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AMMON 
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000012 


900000 
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17750 
COdzeo 
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TRaS 
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ocOze2 
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MACY11 2e7( 732) 


CUMMON TAGS 


f RRA RAFRAAFLAFSFFSLFF FE RLF LLL SLE LAF FRFELF SELES SFEFFFEEFFLA FE LAFF SSS 
THY S TABLE CONTAINS VARICUS COMMON STORAGE LOCATIONS 
: xUSED IN THE PROGRAM. 


21100 
SCNTAG 
$Pass: .WORD QO 
STSTNM: .BYTE OQ 
SERFLG: .BYTE 9Q 
SICNT: .WORD 9 
$LPADR: .WORD Q 
SLPERR: .WORD 9 
SERTTL: .WORD OC 
SITEMB: .BYTE 0 
SERMAX: .BYTE 1 
SERRPC: .WORD OG 
$GDRADR: .WORD 0 
$SDADR: .WORD 0 
$GODAT: .WORD OQ 
$BDCDAT: .WORD OQ 
-WORD OQ . 
-WORD OQ 
$AUTOB: .BYTE 9 
SINTAG: .BYTE OQ 
-WORD OQ 
R: -WORD DSWR 
DISPLAY: .WORD ODISP 
TKS: 177560 
$TKB: 177562 
$TPS: 177564 
STPB: 177568 
SNULL: .BYTE QO 
SFILLS: .BYTE 2 
SFILLC: .BYTE le 
STPFLG: .BYTE 2 
REGAD: .WORD 92 
REGO: .WORD O 
SREG1: .WORD 0 
TIMES: 0 
ESCAPE:9 
$BELL: .ASCIZ ‘207><377><377> 
$QUES: .ASCII /7/ 
SCRLF: .ASCII <15> 
SLF: SCIzZ <l2> 
she pe: 

PS: :WORD 0 
TACSL: 177500 
TACSH: 177501 
TADEL: 177592 
TAOBH: 177503 
TAVEC: 260,262 


19-AUG-76 11:5i PAGE 10 


oatets fe MAX. ERRORS PER TEST 
NTAINS PC OF LAST ERROR, INSTRUCTION 


DATA 
: }RESERVED--NOT TO BE USED 


;AUTOMATIC MODE INDICATOR 
: } INTERRUPT MODE INDICATOR 


}33) 
NUMBER OF ITERATIONS 
: LESCAPE ON ee ADDRESS 
$e FOR Behb 


UESTION M 
3 CARRIAGE RETURN 
;LINE 


 danusbeecesensencenanecnenncubiceenenececssucesaueeucuenueness 
-WORD 0 


;STORAGE FOR THE PC 
STORAGE FOR THE PS 


LO BYTE ADDRESS OF TACS 
;HIGH BYTE ADDRESS OF _TACS 
3 LOW BYTE MODRESS OF TADB 
DRESS OF TADB 
TALL VECTOR ADORESS 


wm a a re en ae ee 


TALL BASIC LOGIC 
CITABC. NEW 
393 001222 900300 
354 O9lee4 009000 
335 001230 O012e4 
396 001232 00050 
397 001234 o00000 


TEST (PART 2) 
COMMON TAGS 


AAAAAA 
ween 


a A A RNR 


MAINDEC$11-DZTAB-C 


TAPRIO: 30 
DRVKEY: 6.0 
BRVPNT: ORVKEY 
ASKKEY: 0 
CURDRYV: 0 


—— a -_- 
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MACYiL 27( 72) 
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19-AUG-76 11:53 PAGE 11 
;TALL BR LEVEL & 
sDRIVE SELECT KEY: 


sCURRENT ORIVE BEING TESTE 
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Ad SS ae a ee ee a ae 





IC LOGIC TEST (PAST 2) MAINDEC-11-DZTAB-C MACYI1 27(732) 19-AUG-7— 11:5i PAGE 12 SEQ 002s 
EW ERROR POINTER TABLE Seo 002s 
.S8TTL ERROR POINTER TABLE 
*THIS TABLE CONTAINS is INFORMATION FOR EACH ERROR Mgt aa CCCUR. 
t STHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F IN 
: ¥LOCATION SITEMS. ht NUMBER es eaies WHICH ITEM IN THE” Toate IS PERTINENT. 
:#NOTEL: IF SITEMB IS O THE ONLY PERTINENT CATS IS i SERFFC). 
: #NOTE2: EACH ITEM IN THE TABLE  CONTAINE 4 PGINTERS EXPLAINED AS FOLLOWS: 
:# ty) :POINTS TO THE ERROR MESSAGE 
;* DH : TPOINTS TO THE DATA HEADER 
;* OT 3 POINTE TO THE DATA 
* OF :POINTS TO THE DATA FORMAT 
001236 SERRTB: 
s;NOTE: ALL NUMBERS ARE TYPED AS &-DIGIT OCTAL NUMBERS 
sITEM 1 
001236 017066 EMI ;STATUS PROBLEM 
O012e40 Ol7eS6 DH! ; 
COle4#e 017420 OT} :SERRPC SREGO 
O01e44 o00000 0 
sITEN 2 
001246 017105 EMe ;READY FAILED TO SET 
001e50 Oi7e7 DHe :PC Tacs WAIT ADDRESS 
O01e52 vi74ee DTe :$ERRPC $REGO SAVPC 
901254 00090 0 
017133 EM3 ; TRANSFER REQUEST FAILED TQ SET 
O001e60 017273 DHe WAIT ADDRESS 
62 017426 BTe  SERRPC $REGD SAVPC 
081264 00050 0 
sITEM 4 
001266 017174 EMY ; THE WRONG FLAG SET 
O0ie70 O17E73 DH2 :PC TACS WAIT ADDRESS 
O0le7e 017426 DTe :SERRPC SREGO  SAVPC 
091274 900000 0 
;ITEM «65 
OCie7& 017217 EMS ;DATA a 
001300 017330 DHS :PC Tacs EXPECT RCV'D 
001302 017436 OTs :SERRPC $REGO $GDDAT SBDDAT 
001304 000008 0 
sITEM 6 
001306 017234 EM6 5 INTERRLET PROBLEM 
601310 017366 DHE :PC TACs BR LEVEL 
O0isie 017450 DTé : SERRPC $REGO $GDDAT 
001314 oo0oc00 0 
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C.NEW 
0C1316 


001316 
091329 


Boiss 
001326 


cathe 


001334 


TEST (PART MAINDEC-11-DZ2TAS-C 


ERROR PO SINTER ‘vaBle 


Bi ceet 
bite 
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soee 


ITEMS2: 


MACY11 27(732) 19-AUG-76 11:5; PAGE 13 SEG O0cé 
SES 00ce 


sITEMS eCi-e02 


sents TGS TO RESPOND 


seaerc SuMBERS ORE TYPED AS OCTAL NUMBERS 
;NQ DRIVES AVAILABLE 
 SERaeC 





£ 


, MON Gn 
‘Lh: 


woven ote 
’ 7 r) 


i- 
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4G ue 


“fatut 


fu “COMM: 


se- 


“39 
SBBBBBRB8BERER 


ee Se ee Se Se Se ee ee ee ee 


REE 


y 
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>< > 0-< D2 DB 2 §-- 9-2 & 2H -9 9-9 oe «5 
?iez 


& £ £OIG) 
oO 


o- 


£5 EEL 
RES BES 


aero 
Son IOS 


arververy 
o-20 <> 2&2) + = = & = = O&O -e 2d = <6- p- 


B 
& S8888S SB888SB8B8888S BSSBB 


0-8 b-= Ba bo he pe 


. Nap es sone 
& Sesoss 


UATeA Ital tarialtalealtaltal aris! 


AN ee ee Sed ed od ee ee ed 


CO. NOul.£ane © 


/ ff 4 Easily Fag eps PEPTTETVEE TF FEL TIF FEL EEF IL ILL PIS PELL ST 
FF FF FLO EFI TIE EL IL ATTA SST CESSES FEI LG SALSA AES ALA FF FITS FAI LEA A 


SBEGINi 15 FOR NORMAL START 

:BEGING 15 FOR DRIVE SELECTION 

BEGINS IS FOR ORIVE 8 ADORESS SELECTION 

BEGIN 15 FOR MANUAL OPERATION 

SE RRERRAESLESERRLLSSFASSFFSEETE SLA LSS ELL LL FELT FELLLS SLA LA SESSA F SAF 
o0sc05 BEGINI: CL RS :NORMAL START 
Biers? O411C1 oc1224 MoV 8" AB, GRDRVKEY 
ize737 00! Ae 58008: CMPB aS, DAY] CASSETTE DDP? 
Ie spook ENE BGNCMN :60 BEGIN COMMON CODE IF NO 
922737 o00z69 o0Leis Mp 8260, o8TAVES :STANOARD VECTOR? 
00101! BNE  ——-BGNCFIN G0 BEGIN COMMON CODE IF _N 
5004803 vo an BEGINA :GET DRIVES AND ADDRESSES 
Hie70s o0000: BEGINE: MOV ai,RS !ASK FOR DRIVES FLAG 
909405 ns : BF BGNC iBEGIN COMMON CODE 
O1e705 o0co0z BEGINS: MOV #2,5 {ASK FOR DRIVES AND ADDRESSES 

aia) R SSACMN 

Cie75e oocaos SEGINY: MOV 83,P5 

DGNCMN: 

SBTTL INIT ALIZE THE COMMON TAGS 

;:;CLERR 7 MMON TAGS ($CMTAG) ha 
912706 001100 MOV aSCnTAG JR FIRST LOCATION TO SE CLEARED 
9056 CLR (Ri i CLEAR MEMORY LOCATION 
822706 961140 CMP seu "RG ; DONE? 
001374 ENE = ;;L00P BACK IF NO 
Bie7D& 01107 STACK, SP IISETUP THE STACK POINTER 

at s IMITEALIZE R FEW VECTORS 
012737 o12et4 opcoec MOV $SCOPE DSIOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
Gie737 90034C O000ee MOV astorveces ;;CEVEL 
Gie737 012536 000036 MOV er OeENTVEC FEN VECTOR FOR ERROR ROUTINE 
612737 oo34¢ 0c0032 MOY £340, Dag MTVECS +2 ; 
Oie737 016476 00034 ne 8S TRAP. SETRAPYEC’ TRAP VECTOR FOR TRAP CALLS 
812727 000340 000036 MOV 8340, JATRAPVEC+2; ieee 
012737 O1656e 00024 MOV RSPLRON, J8PWRVEC ; “POWER FAILURE VECTOR 
612737 000340 990026 MOV 8340 eel +2; :CEVEL 7 
816767 O10476 OLO4GE MOV SENDCT, SE t SETUB END-OF-PROGRAM COUNTER 
605067 i77444 CLR STIMES’ -’  $3INITIALIZE NUMBER OF ITERATIONS 
005067 177442 CLR SESCAPE ::CLEAR THE ESCAPE ON ERROR ADDRESS 
11276? 090001 177361 MOVE 81, SEAMAX * ALLOW ERROR PER 
012767 001534 17734 MOV 8. » SLPRDE i INITIAL THE LOOP ABBRESS FOR SCOPE 
012767 ocis4e 159340 HOV SLPERR “SETUP THE ERROR LOOP ADDRESS 
:;SIZE FOR Hale SUTTCH pectETER. IF NOT FOUND OR IT IS 
:EQUAL TO A “=1". SETUP FOR A SOFTWARE SWITCH REGISTER. 

913746 of0c04 MOV DRERRVEC,-(SP)} ;;SAVE ERROR VECTO 
012727 901610 oos004 MOV 864 OHERRVEC ::SET UP ERROR GecTOR 
012767 177570 177350 MOV sOSWR, Sil is SETUP FOR A HARDWARE SWICH REGISTER 
012767 177570 177244 MOV soo1cP> DISPLAY AND A HARDWARE DIspLAy REGISTER 
22777 177777 177334 CMP a= 1, OSUIR + TRY To REFERENCE HARD 
ogioiz BNE 668 BRANCH IF NO TIEOUT TRAP BCCURRED 


;;RND THE HARDWARE SWR IS NOT = -1 
oo402 Be 65s ::BRANCH IF NO TIMEOUT 
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=11-D27AB-¢ MACYL] 27(722) 19-AUG-7E 11:5) PAGE IS 
e48: Muy #653, (SP) +:SET UP FOR TRAP SETUBN 
65S: MOV aSWREG, SWR .sPOINT TO SOFTWARE Su 
Moy eDiSPREG DISPLAY 
S$: = MOV (SP)4, SatRAvES »:RESTORE ERROR VECTOR 
.S8T7L TYPE PROGRAM NAME 
tr YPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC 8-! “FIRST TIME? 
Br HERE tTRRGNCH IF NO 
ria #SENOAD, S042 ::ACT=11? 
5EG as ; Hh tae IF YES 
TYSE GID *TYPE ASCIZ STRING 
SSTTL GET vat Fe SOFTWARE shttcH REGISTER 
TST 842 -AR RUNNING UNDER XXDP/AC 
SNE e75 : {ERAN NCH IF Y 
CMe SWR, BSWREG $;S0FTWARE SWITCH REG SELECTE 
BNE 58s NCH IFN 
gis wm SET SOFT-SWR SETTINGS 
67$: MOVE  #1,$@UTOS ::SET AUTO-MODE INDICATOR 
ay HERE OVER THE ASCIZ 
a TBSEIZ CRLF MmENBECeL T-De TAB e7 CRLE> 
ARE s 


5 RHEE FLELESFES RELA FLELFEAELELELF LAE LFE FASE LELEFELELEEREL FL ELSIE 
PSEREEERED EEERESESEEES EEL EEERAEEREEEEE SLES EEE RER ELAS SEES A EEREES 


ne CONTENTS OF RS DETERMINES WHAT WILL SE DONE 


; a MANUAL OPERATIONS 

: RS=2 ASK FOR ORIVE(S) AND ADDRESSES (TACS AND VECTOR) 
: RS=) ASK FOR ORIVE(S) 

Re=d DON'T ASK FOR ANYTHING 


s SPESSESSESFFESEFSLELESERSESELETSSTSELRSFRETALERALREEAAEALERAELSLERFESALES 
useeoes MOV RS, RY sCOPY RS 
DEC RS : ASK FOR DRIVES? 


BLT CHKADR :BR IF 

JSR PC, d8ASKORY G0 GET “DRIVES TO BE TESTED 
DEC RS" ;ASK LOR ADDRESSES? 

BLT CHKADR NO 

JSR PC, J#ASKADR ‘0 der TA11 ADDRESSES 


,jdeeeneenseenaeesiesnnenaaeecasesaencesbanencaesssenneenneneees 
+ EFREEEESERSELERES EAS ELSES EEEEE RED SES EERE REREE REAR ES RELREREER EE 


scvecx THAT “TACS” WILL RESPOND TO ADDRESSING 


1. TIMEOUT OCCURRED 

: TYPE ERROR MESSAGE 

8. EXAMINE Rd 

J. R40 GOTO BEGIN 

2. R420 EXAMINE (42) 

f. (42)20 GOTO BEGINX 
B. (43)00 GOTO SENDAD 
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atetets, 


Oe OO 
Ct ides | tart 


Fast 2) MAINDEC-11-D27Aag-¢ MACYAL 27(732) i@-AUG-76 11:53 PAGE Le 
E FOR SOFTWARE SWITCH REGISTER 
II TAMECUT DION’T OCCUR 
: A. CONTINUE 
ae SSLESS SERS FASE SE SESS*ARAELERE SSS FAS SSF SHLSFL SFE FSSERARELSESFF ELE SSS 
OC2c0S OCGSCO4Y CHKADR: MOV #1$, a8ERRVEC ;IN_CASE OF TIMEOUTS 
— cL R = sUSE as S SWITCH 
L?relo TST TACSL :SEE TF TALL RESPONDS 
; nr :BR IF NO TIMEGUT 
iF: INC RO :COME HERE ON TIMEOUT 
wee : CMP (p)+, (SP )4 EEERNUP THE STACK 
OOSSO& 900504 2§: MOV aenitie2, OBERRVEC ;RESTORE TIMEOUT se 
TST ;010 A TIMEOUT OCCUR 
SEO 388 IF_NO 
— ERROR 20! TAL] FAILED TO RESPOND 
OS00Gz2 C' #2,R5 ;DRIVES & ADDRESSES 
TST RY" OPERATOR INPUTS? 
BNE —- BEGINX :BR_IF YES Sees 
gooo42 MOV = a4, RO :GET MONITOR RETURN ADDRESS 
rae BEG BEG IA :BR IF NO MONITOR 
Ole2s2 e!P esSEnOAd 260 TO END 
i77i$e2 CLR STAVEL +2 
38: 


E03 


{ tary BASIC LOGIC TEST \PART 2) MAINDEC-11-DZTAB-C MACYLL 27(722) 19-AUG-76 11:53 PAGE 17 
| D2TABC. NEW SET VALUE FOR SOFTHGRE SWITCH REGISTER 
333 ERE EREEERELEREL SERS S ESSER ELSE PERS EE FEELESLE SE PLERFEEEAFES FO FFF 
525 preeeereernenrrererrrrrrarerrrrcrrrrrerrrrretcerrr irri tris 222s. 
e52 sMOKE SURE THE DRIVES IN THE DRIVE TABLE CAN SE TESTED 
Sus ‘ 
£55 :I. DESIRED DRIVES CAN NOT SE TESTED 
a3 : G, TYBE ERROR MESSAGE 
55 : 8° EXAMINE & 
arg : \- 5 4g GOTO BEGINX 
Sa) : 2. R420 EXAMINE (43) 
Se] : . (4ed2e0 GOT BEGINX 
$2.0 ; B. (a5)0 GOT) SENDAD 
el: :I1 BOTH ORIVES IN THE TABLE BUT ONLY ONE OF THEM CAN SE TESTED 
Sec A. CLEAR BRD ORIVE con THE DRIVE TABLE 
515 : 5. CONTINUE IN PROGR 
1 - IIT. DESIRED DRIVE(S) CAN BE TESTED 
B17 : A. CONTINUE IN PROGRAM 
£12 : 
is i?  EEESEEEERESESEERES ELE SS SEF ASE SRESE SIRE FE EERE LARA ELLE E RELEASE ES 
£26 poeo46 oie72e oo1e24 AtKORYs MOV aDRVKEY RO ;PICKUP ADDRESS OF ASCII DRIVE KEY 
£2: O923S2 o04737 OLSosé JSR PC, a8EXAN :G0 EXAMINE FIRST DRIVE 
&22 O02 560410 aR 5 K TO TEST---GO CHECK NEXT 
£23 O0Sn60 1160!0 oocce: MOVE 1 (RO), ROD OEP LACE IST WITH 2ND 
£24 02064 901412 BEQ :BR IF NO 2ND DRIVE SELECTED 
S25 O0e066 904737 oC1so4e JSR Po, JaEXAM :G0 EXAMINE DRIVE 
£26 002072 200407 BR 2g :OK TO TEST 
£27 502 9952010 CLR (RO) “CLEAR DRIVE CODES 
f28 602076 9o04cs ER 2 
£23 902100 905200 1s: INC RO sPOINT TO 
£30 802102 904737 OLSO4E 5k Caaf YAM :69 Las NBRIVE 
£2: Ooei06 00040! p es 
£32 02110 1065019 CLRB et EAR 2ND 
£33 O02l12 O12700 co1224 23: MS OF KEY RO RESET ADDRESS POINTERS 
E24 O0el16 019037 961230 MOV RO ae RUPNT 
£35 902122 666 900cPi cMpe }~=—s¢ RO), LC RO :1ST = 2ND? 
£36 O02126 901002 BNE 3$ :BR IF NO 
£37 002130 105969 oc200! CLRB =s-« LC ROD YES=--CLEAR 2ND 
£38 992134 005710 23: TST (RO) LQNY DRIVES? 
£23 002136 290140! BEQ 3 BR IF N 
£46 902140 poba le 3R MANUAL 
641 O0el4e i042 S$: ERROR 202 ;NO DRIVES AVAILABLE 
g42 602144 012705 coo002 MOV #2,R5 sDRIVES 3 ADDRESS 
543 ooe150 TST RY CPERATOR INPUTS? 
c44 O02if2 0601272 BNE BEGINX ‘BR IF YES 
£45 002154 013700 oo0d4e MOV as4e2, RO GET MONITOR RETURN ADDRESS 
BH DOcIEO Obibbr #69 BEGIAX ;NO MONITOR 
E47 O0clé2 500127 012232 MP DESENDAD G0 TO END 
S48 002166 O20427 oO00003 MANUAL: CMP R4, #3 
£49 02172 901092 
£50 002174 016704 75577 MOV -1,R4 
gi O0ce 10427 601222 OK: MOV RY’ JBASKKEY 
toe 992204 o00405 GR START 
£63 O0e206 104401 O01712 PURST: TYPE MSGID POWER FAIL RESTART 
c64 OGzele 12737 G01224 oo1e30 MOV BORVKEY, JRDRVPNT 
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SIC LOGIC TEST (FART 2) MAINOEC-11-D27AB-C MACYLL 27(732) 19-GUG-76 11:5: PAGE 12 
NEW GET VALUE FOR SOFTWGRE SWITCH REGISTER 
002220 OL3777 001220 I7ETTO START: MuV  QaTAVEC42, aTAVEC ;SETUP TALL TRAP VECTOR 
dsse6 ooso77 176756 CLR = ATAVEC42 
O0zes2 012737 OO0340 i7TTTs MOV #340, 8PS LOCKOUT ALL 1/0 INT 
092240 013704 901206 MoV ss @@TACSL, TACs ;SETUP TACS 
002244 613705 OClzle MOV ga TADBL, TADS ;SETUP TAC 
002250 o05737 001100 TST  § SSPASS iF EIRGI PASS SETLS FOR EXTRA LONG WAIT LODPS 
O0ee54 901003 SNE 1$ :OTHERWISE USE OLD VALUES 
002256 012737 o77777 013150 HOY SYCBITIS, QaMAXCNT 
092264 005037 901102 13: GR = NS TSTN ZERO THE TEST NUMBER 
e7c 955503 CLR =o DRIVE SET DRIVE TO "A" 
BOee72 Ols701 001230 “Ov. dO RVPNT,RI ‘CET DRIVE POINTER 
002276 121127 ocdI0! cMPB (RI), a°R 1S IT ORIVE “a? 
OGe302 00: 402 SEOs TORV :BR_ IF YES 
002304 912703 ooo400 MOV UNIT DRIVE ;SET DRIVE TO “B" 
002310 TORV: z 
802210 104401 O02316 TYPE = SS :;TYPE_ASCIZ STRING 
902314 od0411 BR bug jGET_OVER THE ASCIZ 
340 jjgSS: | .ASCIZ <1) <iB>#TESTING ‘iRIVE « 
ows. 
002340 112167 176679 MOVB = (R14, CURDRY ;SETUP TO TYPE CURRENT DRIVE 
344 10440: 901234 TYPE =, CURDRV 
O02350 104401 091177 TYFE  , SCRLF ;TYPE A CRB 
002354 195711 TSTs st RI) LAST DRIVE BrEN SELECTED 
02356 90100 BNE 13 F NO 
002360 Ole701 001224 MOV aDRVKEY, Ri ;RESET DRIVE POINTER 
002364 010137 oCle30 1S: MOV RI BOR VENT . SAVE _DRIVE POINTER FOR NEXT TIME 
002376 905737 00:232 TST a BASKKEY ;GO START TESTING IF _NO MANUAL 
062374 902007 BGE 80sPg : OPERATIONS REQUESTED 
02376 005090 aaah GLa Fo 
052499 900900 / HALT : :GIVE CONTROL TQ THE OPERATOR 
008402 O227E7 OO017E 178530 CMP aSWREG, SUR _ USING S/W SWITCH REG. ? 
002419 001001 BNE 208 :NO= 
Ode41e 104405 . GTSUR _ TLET_HIM CHANGE IT 
002414 eos: : CONTINUE 
;THIS CODE_IS FOR ACTL1 & DOP 
02414 905737 op9042 23: TST = a2 IS THERE A MONITOR? 
90E420 901496 Beg STL :G0 START TESTING IF NO 
O0e422 010314 | MOV ORI ~ eae rIF YES SEL VE 
O92424 112714 o00017 MOVE sSELT#O! G0, 2TACS :SEND TAPE 
S2es20 932714 900040 38: BIT READY, JTALS WAIT ON READY —__ 
Coe434 901775 SEQ y :FALL THRU IF RERDY=1 
| 
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All BASIS LOGIC TEST \EART 2) MAINDEC-11-D2TAB-C vidl 271732) 19-AUG-7E 11:5: PAGE 19 SES Code 
SI TREC NEW SE7 VALLE FOR SOF TWSRE SWITCH REGISTER SES S032 
£3$ 3’ / as S44 ASS PPI PLPSASLALAOHVAAHOLITA TAVITA PT ILAAELET ASTD DAA AT AED AST 
sv SSASPSEPPSLALAIEDLIGVTT DAAIOTAVTT SAAD PATLATTAST TATA TAT AAD IE LTS EE 
633 yg RERPEPAERERER SHALE SERERRAEREREPES EDEL HERES ER ES SELEEILE SS SEAS 7F 
$33 :4HIS ISN'T A REGAL TEST BUT A SMALL ROUTINE TO DETERMINE THE Max. 
o3e :TIME FOR THE WAIT LOOPS (WAIT FOR “READY™ AND “TRANSFER REQUEST”) 
‘ul $s FRERERAAREREEESEREE EK EER ELE LEE SARA ERER REESE LE FERS EEL EER IRS EE FESF 
7Ue s#TEST 1 ROUTINE TO DETERMINE TIME OF WSIT LOOPS 
ud FFE Lclalaiab-ind-+-1-talalahahalaledalalelelelelelelehelehehelehsheleheieiehleleileleleleleleleieiaieialelehdichdicididd 
7O8 9020436 o02904 . isti: SCOP 
755 90544 Ole7er O00CO1l i7ese0 MOV Si, STIMES ::D0 1 ITERATION 
705 o02446 605737 o01.00 TST aetPass 31S THIS THE FIRST FASS” 
TO? «ooS452 05102) SNE TST2 538R IF AO 
708 O0e45% O00005 RES 
703 O0e4S6 010214 MOV DRIVE,3TACS sSELECT THE DRIVE 
710 902460 lle7l4¥ cCO0017 MOVB BREWIND!GO, JTACS -START A REWIND 
711 O02464 104412 WAITREADY WAIT FOR READY 
Tie O02466 lL12e714 00001 MOVB sWFG!GO,aTACS ;WRITE A FILE GAP 
‘is 472 i1044le2 WAITREADY sWAIT ON READY 
714 092474 163737 912124 013150 SUZ; Ss QRHGHTIM, J#MAXCNT sGET THE TIME IT TOOk 
eiS 002602 05237 013150 INC OeMAXCNT sMAKE IT BIGGER 
71& O0e506 906137 013159 ROL asMAXCNT 
717 OOeSie O06le? 023250 ROL aeMAXCNT 
718 WALEED ddd dddddddddddddddddddddiddddddiidddddbebeeeesesegs 
718 SLASTLISTELELATDLELLLVALATLITALTLELAAT LEAL AAT LLAI LDA AT LILLIAN AL ALE ALES 
729 “THE FOLLOWING TEST WILL CHECK TIMING ERRORS FOR BOTH “WRITE" AND “READ”. 
vel Ww TEAA AAA ddd ddbddadbdddbbbbdbbibldddbdbdbldddiditiid 
722 5 REEEEERERREEL EEE EELEREAAR ER EL ER EL EERE ER ELLE ERE REE E EER LE RE EELS 
7e3 s#TEST 2 TEST “TIMING ERROR” FOR “WRITE” 
724 5 RRAREERRRERERRER REEL EERE RE REEEEAER EERE REE EE EERE EEE AEELE EERE SS 
7é5 ODES1¢ SO09D4 __ $812: SCOPE 
726 002529 Dle767 O000le 176430 MOY #10. ,STIMES ;;00 !0. ITERATIONS 
7e7 O025e6 Ole767 O0eSS4 17b2Se MOV #73, $LPADR :;SET SCOPE LOOP ADDRESS 
7e8 002534 012787 O0cbS& 17b4e6 MOV #7513, SESCAPE ;;ESCAPE TO TEST 3 ON ERROR 
723 O0e5s2 000005 RESEY e 
738 902544 010314 MOV DRIVE, aTACS ;SELECT DRIVE 
731 O02S46 112714 908017 MOVE BREWIND!GO,aTACS ;G0 TO “CLEAR LEADER” 
73e O025Se 1044le WAITREADY *WAIT ON “READY” 
ce preeen iiais 000003 7$: +t I aici acti EO TE A creR REG" 
73 Baeees 105714 rete aTACS ;15 “XFER REQ” = 1 
736 002564 100401 BMI 1$ ;BR IF YES 2 
737 902566 10400! ERROR 1} 3NO “XFER REQ" OCCURRED 
738 O0eS70 O05015 is: CLR eTADS sKNOCK DOWN “XFER REQ” 
733 002572 005000 CLR RO sCLEAR COUNTER 
740 O0e574 005001 ce CLR Rl 
743 002576 395714 es: TSTS aTaAcs ;sWAIT FOR “XFER REQ” 
742 O0e600 100405 BM? $ 
743 O0260e O6e700 C0010 ADD 810,R0 ;KEEP TRACK OF HOW LONG 
744 O02606 005501 ADC Rl :IT TAKES “XFER REQ” TO SET 
745 002610 10037e BPL 2s - 
746 O0cble 104001 ERROR 1 ;"XFER REQ” FAILED TO SET 
747 002614 105734 3$: TSTB avTAcs ;SAMPLE “XFER REQ" 2 
748 O0c61— 100005 BPL 4$ -IF “XFER REQ" = Q SOMETHING IS WRONG 
743 O00e620 16e700 006001 SUB #1,R0 sDOWN COUNT THE COUNTER 
750 O0cte4 OOSED! sec Rl 3$0 A_“TIMING ERROR WILL 


751 O0ebe& 200272 BPL 3$ ; OCCUR 


READ 
COs04e = .04H4le WAITREADY WAIT ON "READY" 


IC LOGIC_TEST \FART 2) MAINDEC-11-D27A8-¢ MACYLL 27(732) 19-AUG-76 11:51 PAGE 20 £3 0022 
EW : TEST “TIMING ERROR" FOR "WRITE" £2 0022 
902630 00040! i By cs . - 
062632 10400! 43: ERROR 1 S"XFER REQ" SHOULDN'T HAVE CLEGSED 
002634 i0sr1s o3: TST STADE CLEAR “XFER REG" 
2636 10441: WALTREADY SWAT . " 
Oo2640 05714 TST aTACS 1S “ERROR” SIT SET? 
Ooes42 10040! SMI eg iBR IF YES 
ooe644 104001 ERROR | p :"ERROR" BIT NOT SET 
002645 932714 002000 be: SIT STINERR, STAC IS “TIMING ERROR” = 
O0e6S2 901001 BNE TST3 ;;8R IF YES 
902654 104051 ERROR 1 rey MING ERROR" NOT SET 
PEREREARRAHSEREAE EE AEAEASHA REELED SSSA REEL RES EHAEER ELIAS EEE EEE 
SATEST 2 TEST “TIMING ERROR" FOR “READ” 
H + EERE EEAE AERA KE KE EEREEEEES BEES EA EEE EEE EE EEE EAEEE ESAS EERE ESSE 
ooesss 9900004 es beta: SCOPE 
Bbe660 Oleré7 900012 175300 MOV #10. STIMES ;;00_.10. ITERATIONS 
dd2665 612767 O02714 i7beiz MOV #73, $LPADR SET SCOPE LOOP ADDRESS 
002674 012787 003062 172k MOV neta, SESCAPE ;;ESCAPE TO TEST 4 ON ERROR 
952702 900005 RESET 
ooe704 019315 MOV DRIVE, aTACS ; SELECT, DRIVE 
092706 112714 oco017 MOVE BREWIND!GO, dTACS GO_TO "CLEAR LEADER” 
Ooa7ie 104412 WAI TREADY ee :WALT FOR "READY" 
052714 112714 oco0c03 73: MOVB = #WRITE!GO, JTACS WRITE 
002720 Ole70C od0006 MOV #6, RO SWRITE THIS MANY BYTES ON TAPE 
O0e724 104413 WATTXFER WAIT FO R REG" 
002726 112715 000377 ef: MOVB #377, 3TADS :WRITE ON 
002732 104413 HALT XFER :WAIT FOR "XFER REQ" 
092734 905200 LAST BYT 
OSe73& 003372 Ber :5R IF NO 
02749 O52714 000020 BIS BILBS,QTACS WRITE “CRC” 
DOE7TH4 104412 WAI TREADY te WAIT FOR “READY” 
002746 112714 o0c017 MOVE SREWIND!GO,aTACS BACK OVER THE BLOCK 
002752 104412 WAI TREADY ’ WAIT FOR "READY" 
096754 112714 oocco MOVB __ BREAD!GO, 3TACS START A i 
O5e760 104413 WAITXFER WAIT FOR "XFER REQ" 
002762 105714 TSTB = ATACS :1S “XFER REQ" SET 
002764 100481 BMI 1$ BR IF YES 
052766 104001 ERROR} ;"XFER REQ" DION’T SET 
002770 105715 1$: TSTB = STADE KNOCK DOWN "XFER REG" 
O3e772 005000 clk =e RO CLEAR COUNTERS 
992774 005001 : CLR RI 
002776 105714 28: TSTB = ATACS FIND OUT HOW LONG IT 
093000 100405 BMI 38 STAKES FOR "XFER REQ” 
002002 062700 voctle AOD #10. RO :TO SET | 
003006 005501 ADC Rl 
003010 100372 2PLsS | 
003012 104001 ERROR 1 ;"XFER REQ” FAILED TO_SET 
903014 105714 3S: TSTB = AACS NOW WASTE MORE THAN THE ABOVE 
503016 100005 BPL = : AMOUNT OF TIME SO 
003020 162700 c0cc0! sus #1,R0 A “TE” WILL OECER 
003024 o056C1 secs | 
003026 10037e BPL 35 
003020 000401 cI 5s 
093032 104001 4S: ERROR ;"XFER REQ" CLEARED SOME HOW 
603034 105715 os: Ts1a TADS KNOCK DOWN "XFER REQ" 
003036 052714 go0de0 gIs BIL8S,aTACS ;STOP THE 
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Sc LOGIC TEST (PART. 2) MAINDEC-11-D27A8-C GCvYLL 270722) 19-AUG-76 11:5; PAGE 21 S65 00% 
NEW T3 TEST “TIMING ERROR” ECR “REGO S&3 603 
po3044 o0S714 TsT gTACS “15 “ERROR” SET? 
b53046 10040) BMY 3 : 
653050 104001  —=s_— ERROR =! ‘\ ” 
posnse paerl4 02000 63: BIT aTIMERR, aTACS ‘15 THERE A “FTHING ERROR” 
O63856 001001 BNE TST4 2:60 TO MEXT TEST IF YES 
603960 10490: ERROR 1} "TIMING ERROR” NOT SET 
Peer eee SPTTererrrerererrerertrerirtrrrrtirrrrt ri reteset ic, 
SkTEST 4 TEST "ERROR" OUTPUT OF STATUS ROM USING A “TIMING ERROR” 
CSP RAMS ARE EAE SAAS REREAD AERA SES AST AREA ADEE ERE EPIEREER EERE BATES OF 
oo30se 9ccoo4 tétu: SCOPE 
652064 Cle7s7 g00012 17E074 MOY #10. ,STIMES +:00 10. ITERATIONS 
oo3o72 12767 O93l26 i7é00¢ MOV £13, ¢LPADR :i5ET SCOPE LOOP ADDRESS 
563109 Sle7s7 dOss42 176f6= MOV aTStS sEscaPe ::ESCAPE TO TEST S ON ERROR 
03108 900095 RESET 
693110 010314 e Mg v DRIVE. ITACS :SELECT DRIVE 
Sozile lte714 ooocl" 5VB  - BREWIND'GO,2TACS GO TO BEGINNING OF TOPE 
BO31i6 1o44te WAL TREADY “WAIT ON "READY" TO SET 
093i20 112714 900001 MOVB  &#WFGIGO,2TACS -GET ON THE OXIDE 
093124 104412 WAITREADY ; tWAIT ON "READY" TO SET 
903126 ile7l4 ooc002 13: MOVE _ aWRITE!GO,QTACS ;START A WRITE 
802132 104413 WAITXFER WAIT FOR “TRANSFER REG" 
803134 liev71S o00377 MOV #377, JTADE sHRITE ONE BYT 
002140 oo5009 CLR RO LEAR THE DOUBLE LENGTH COUNTER 
002142 ocso0! cLR RI 
903144 105714 2$: TS’B 20s a TAC “CHECK FOR “XFER REO" 
093146 100405 Sse BMI 3g :BR IF 
903150 062709 ocC00l ADD 10. ,R0 COUNT UP UNTIL “XFER REO" 
903154 995501 anc R! SETS OR OVERFLOW OCCURS 
993156 190372 2g 
503160 104901 z ERROR 1 :"XFER REQ” FAILED TO SET 
003162 105714 38: TSTB 3890s @TACS -CHECK "XFER 
503164 10040! BMI 4$ BR IF SET . 
003166 104901 ERROR 1 XFER REQ” SHOULDN'T HOVE, CLEARED 
992170 162705 90000: 4g: sug #1, R0 COUNT DOWN TO CAUSE & 
992174 S05601 58C RI 
003176 19037 BPL 33 
903209 10571 Tse aTAoe “CLEAR "XFER REQ” 
p03202 104412 WAITREADY tWALT FOR READY 
003204 905714 TST JTACS "MAKE SURE "ERROR" IS SET 
99 100401 BMI o$ 
093210 104001 ERROR 1 "ERROR" DION’T SET 
6ezele 032714 o0ecoo cs: BIT sTIMERR, aTACS !MAKE SURE “TE” IS SET 
003216 O01001 BNE 6$ 
603220 104001 ERROR 1 "TE" FAILED TO SET 
OOz222 i1e714 socooc &$: MCVB  &WFG,aTACS ‘CHECK “ERROR” WITH “WFG" 
003226 005714 TST aTACS ‘SAMPLE THE “ERROR” BIT 
003230 100091 p 7$ :BR IF “ERROR” = 0 
3232 104001 ERROR 1 "ERROR" NOT = 0 
3234 112714 oooo02 73: MOVE  SWRITE,aTACS CHECK “ERROR” WITH “WRITE” 
005714 TST JTACS : E THE “ERROR” EIT 
pozeNe 100401 - BR IF BERROR® = = 1 
104001 ERROR 1 :"ERROR” NOT = 
112714 scoo04 QS: MOVE  sREAD,OTACS 3 CHECK “ERROR™ both “READ” 
002252 005714 TST aTACS ‘SAMPLE THE “ERROR” SIT 
noz2s4 10o04o! BNI 9g BR IF "ERROR" = 1 


OO3e56 0400) ERROR 1 :"ERROR” NOT = 1 
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TPUT CF STATUS ROM USING A “TIMING ERROR” 
3g MOVE  - wBSFG. aTACS CHECK “ERROR” WITH "BSFG" 
TST bas LSoMPLE THE “ERROR” BIT 
BPL 108 'B2 IF “ERROR” = 6 
ERROR 1 "EPEOR" NOT = 0 
10$ MOVS  sBSE6,aTACS CHECK "ERROR" WITH “SSe5" 
TST aTACS ‘SAMPLE THE “ERROR” BIT 
BPL 118 BR IF "ERROR" = 0 
ERROR 1 :"ERROR™ NOT = 0 
ils: ‘OV HSFFG,ITACS ;CHECK "ERROR" WITH “SFFG" 
St JTACS SAMPLE THE “ERROR” BIT 
PL 123 ‘BR IF “ERROR” = 0 
ERROR 1 :"ERROR" NOT = 0 
128: MOVE sSFBG,aTACS CHECK “ERROR” WITH "SFEG" 
TST aTACS SAMPLE THE “ERROR” GIT 
BPL 138 !BR IF “ERROR” = 0 
ERROR} ;"ERROR" NOT = 0 
138:  MOVB  #REWIND,@TACS ICHECK "ERROR" WITH “REWIND” 
TST ITACS ZSAMPLE THE "ERROR™ BIT 
TSTs s;5R IF *ERROR™ = 0 
1 :"ERROR” NOT = 0 


SLLISILOST ISSA ELAATATAAS TAAL S TALL ESS SIIVITTATID AS TSSTL SLES OLFASAAAS SGA 

CLASS EIAAAALAATASATTAALAAATLALALATSATAATAALAAEAOAATAALAA LADS AEAAA EA EEF ES 

;THE FOLLOWING TESTS CHECK THE INTERRUPT CIRCUITRY FOR: 

:1) INTERRUPT OCCURS AT THE PROFER “SR” LEVEL 

;2) READY" WILL IN 
) “TRANSFER REQUEST" WILL ITERRUPT 

) IMPROPER INTERRUPTS DO NOT OCCUR let 

} WITH AN ERROR PENDING AND “XFER SEQ." SET THE FOLLOWING SEGUENCE OCCURS 

i) XFER REQ” CAUSES AN INTERRUPT 
CLEARING “XFER REQ” ALLOWS “READY™ TO SET 
o) “READY™ CAUSES AN INTERRUPT 


Uwrue 


y RAPER RERERERRERE LER EELRE REESE ER EERE PEER EER EER ESE ER ERASER ERLE EE 
; THIS Test WIL, SETUP THE TAL1’S VECTOR ADDRESS ow AT ADDRESS 0 
;A_JMP a(PC)+ IS oteeD INCASE THE VECTOR IS READ AS O. 
; L_THEN = fT HE PRIORITY LEVEL TO 0 AND WASTE ENOUGH TIME 


TO ss ath 

AF IME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
AND CHECK IF AN INTERRUPT OCCURRED 

HEHEHE HHH HEHEHE HEHEHE HH GHEE GHEE BEES 


:ATesT 5 TEST INTERRUPT WITH READY = “1” AT LEVEL O 
Sigg ° 2 mpaatenaant penne car rip perpamtancain estan cate oct rey: 
MOV #1$,SLPADR :;SET SCOPE LOOP ADDRESS 
HOV 8&3, SESCOPE ::ESCAPE TO &$ ON ERROR 
1S: MOV RIVE aracs 
MOV 0. oars sLOCK OUT ALL INTERRUPTS 
MOV sa RO TEST AT PRIOR TY LEVEL 0 
CLR Ri ae EAR INT KEY 
MOV :SETUP TO haste A LITTLE TIME 
MOY rt ie ,dTAVEC tINTERRUPT RETU 
MOY #340, aTAVECS2 "LOCK OUT THE WORLD IF INTERRUPT 
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C-11-D2TAB-¢ MACYL1 Q7(7S2) I9-AUG-76 11:53 PAGE 23 
WiTH READY = "J" AT LEVEL OQ 
MOV #127280 »SETUP TO CATCH INTERRUPT IF 
Moy 853, dae TT GOES TO LOCATION G 
MOVE tint EN. aTAcs :SET INTERRUPT ENAELE 
. MOV 20#40, aaPS i367 TO PRIORITY LEVEL 6 
23: BS ee KILL SOME TIME 
Ye 
MoV #340, 2aPS “LOCK GUT THE WORLD 
TST Ri -CID AN INTERRUPT OCCUR” 
BNE -BR IF YES 
che ia DeTAPRIO “WAS BN. INTERRUPT EXPECTED” 
ERROR § : INTERRUPT FAILED TO CCCUR AT PRIORITY 
33: cre g0+40, 2a TAPRIC s INTERRUPT OCCURRED--SHOULD IT HAVE? 
ERROR INTERRUPT OCCURRED AT PRIORITY LEVEL 0 
4g: INC R} :SET INTERRUPT KEY 
RTT :ETURN AFTER INTERRUPT 
3g: CMP (SP)+, (S8)¢ THE K 
ERROR 6 INTERRUPT WENT TO LOCATION C 
&$: CLR aTacs :CLEAR INTERRUPT ENABLE 
MOV DRTAVEC+E, ATAVEC :SET TRAP CATCHER 
CLR JTAVEC+2 
€LR a0 
€LR 82 
REPEATS TEGT TLL GETUP THE TAlL’S VECTOR ADDRESS OND AT AD 
THIS TEST WILL SETUP THE TAL1’S VECTOR ADDRESS AND AT ADDRESS O 
A IMP J(PC)+ IS STORED INCASE THE VECTOR IS READ AS 
13 WILL THEN SET THE PRIORITY LEVEL TO 1 AND WASTE ENOUGH TIME 
FOR AN INTERRUPT T OCCUR. 
:AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
AND CHECK IF AN INTERRUPT OCCURRED. 
w 9:9 eae 0 06905 98 0 A 
by EST & TEST INTERRUPT WITH READY = “1” AT LEVEL 1 
seeeneaquogeasasnensacnessenesconessesensensensansssnsneennaens 
Ov #1$, SLPADR ;:SET SCOPE LOOP ADDRESS 
nov ses" SESCAPE ::ESCAPE TO 6$ ON ERROR 
1$: MOV DRIVE ITACS 
MOV 0, d8PS ;LOCK OUT ALL INTERRUPTS 
MOV ‘i R - :TEST AT PRIORITY LEVEL 1 
CLR RI ; CLEAR INTERRUPT KEY 
MOV :SETUP TO WBSTE A LITTLE TIME 
MOV sag St j INTERRUPT RETUR 
MOY tit, aTavE Cee *LOCK OUT WORLD IF INTERRUPT 
MOV #137 a0 ;SETUP TO cntct INTERRUPT IF 
MOY #2 : IT GOES TO LOCATION O 
MOVB ante EN, aTACS :SET INTERRUPT ENABL 
MOV #1440, JPS :SET TO PRIORITY LEVEL 1 
23: ASL Re :KILL SOME TIME 
BNE 2 
MOY #340, 24PS ;LOCK OUT THE 
TST R} :DID AN INTERRUB TS OCCUR? 


ol ales 


LEVEL 0 


cet ceo eter i a i A a AE ET OLE 


sane i aa anal le a ee TEE NOT te ett tT ee 
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TALL BASIC LOGIC TEST <FART 2) MAINDEC-11-DZTAB-C MACYLL 27(732) 1G-AUG-76 11:5i PAGE 24 S90 
DzTABC. NEW TS TEST INTERRUPT WITH READY = "1" AT LEVEL ! c&5 

$76 003664 O01005 __ BNE 3 sR IF YES 

S77 D036 Oeers? Oc004d 001222 CME #1440, QaTAPRIO tiiGS AN INTERRUPT EXPECTED? 

$78 903674 O02012 GE 3 ‘BR IF 

333 003876 10400 ERROR LINTERRUPT FAILED TO OCCUR OT PRIORITY LEVEL 1 
681 03700 Oee73s7 nood4o coz22 38: CMP 21440, 2aTAPRIO ; INTERRUPT OCCURREL--SHOULD IT HAVE? 
982 003706 302405 SLT bg YES 

333 603710 104006 ERROR 6 SF TERRU OCCURRED AT PRIORITY LEVEL 1 
$85 on371e 905202 43: INC Ri .SET INTERRUPT KEY 

$86 903714 o000ce RTI tRETURN AFTER INTERRUPT 

387 903716 Oebeb cf: CMP (SP)+, (SP) POP THE STACK 

238 003720 194006 ERROR S INTERRUPT WENT TO LOCATION 0 

$96 03722 coso14 &$: CLR aTACS -CLEAR INTERRUPT ENABLE 

831 O037e4 013777 001220 17524 MOV S TAVECSE, aTAVEC SET TRAP CATCHER 

ga> 003732 005077 175262 CLR DTAVEC+2 

893 903736 905037 009000 CLR 240 

go 993742 095037 90000e CLR dee 

Sas jj HHH EERE EEESEEERIEDEREERER EI Te eee AND AT AD 

$36 THIS TEST WILL SETUP THE TA11°S VECTOR ADDRESS BND AT ADDRESS 0 

$¢7 A IMP a(PC)+ IS STORED INCASE THE VECTOR IS READ A 

9S ITT WILL THEN SET THE PRIORITY LEVEL TO 2 AND WASTE ENOUGH TIME 

agg SFOR AN INTERRUPT TO OC 

1008 tAFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
100! °AND CHECK IF AN INTERRUPT OCCURRED. 

1002 PR ee em eerie eerttr eer rteeerr errr Tree. 

1063 :STEST ? TEST INTERRUPT WITH READY = "1" AT LEV 
1604 TEST 7 epee ee ee eee eee ete sn ectessncensueneecsaussessessens 
19S 03746 900904 té77, SCOPE 

1D0& 902750 Sle7s7 00276 175120 MOV #1$,$LPADR :;SET SCOPE LOOP ADDRESS 

ipo? 903755 Ole767 004124 175204 #63, SESCAPE ::ESCAPE TO 6$ ON ERROR 

1008 002764 000 RESET 

1009 910314 1$: DRIVE ,aTACS 

i910 012737 OCCO34O 177776 MOV #340, 28PS sLOCK OUT ALL_INTERRUPTS 

1011 003776 Ole700 o00002 MOV i : TEST AT PRIORITY LEVEL 2 

ote i CLR RI ; CLEAR NTERRUPT K 

101 12702 oo0001 MOV :SE WASTE a ETTTLE TIME 

i014 OO4010 012777 OO4114 175200 MOV SN STAVES s INTERRUPT | 

1915 9804016 Ole777 O0C340 175174 MOV 340, QTAVEC+2 LOCK OUT WORLD IF INTERRUFT 

1018 co4024 16737 900137 po0000 MOV 7’ 380 SET TO cATCH INTERRUPT IF 

1917 o04032 0127 120 00002 MOV ts see T GOES TO LOCATION O 

1018 OO404O0 112714 000100 MOVB nN EN, aTACS SET INTERRUPT EAREL LE 

1018 OO4044 012737 090100 177776 MOV #2#40, IPS i Set 0 PRIORITY LEVEL 2 

1920 oo040S2 ee 23: ASL RS ‘KILL SOME TIME 

1921 OO40S54 001376 BNE 2 

1022 OO4056 012737 CO0240 177776 MOY #340, 08PS *LOCK OUT THE WORLD 

1923 904064 005701 TST R 510, aN yNTERRUPT OCCUR? 

1024 O04066 001005 BNE 3 

i025 O04070 027727 Of0100 odle2e CMP $2*40, J8TAPRIO ‘ens. ON INTERRUPT EXPECTED? 

idee 004 po201e2 BCE z 

Ge? 0041008 104006 ERROR 6 INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 2 
i929 1 737 O00100 o0l222 38: CMP ne*40, UTAPRIO sINT RRUPT OCCURRED--SHOULD IT HAVE? 
1630 O0411 BLT b : 

1031 OO04i12 i0400€ ERROR 6 INTERRUPT OCCURRED AT PRIORITY LEVEL 2 











se 
= OR 4114 
4 OO4lie 
35 0 
6 
rd 


004144 


1047 


1069 256 
260 


1084 004324 


106? 204880 


gose01 
o050e 
Gzebet 
104006 


Ou 
Beo3 


o00004 


B13777 


regia 
0 


ooocde 


004170 
004326 


000140 


000140 


001220 


175062 


174726 
175002 


177776 


000002 
177776 


177778 


001222 


001222 


174660 


MO3 

























C-11-D2TAB=¢ macyd 27(732) 19-AUG-76 11:5) PAGE 25 
atte’ RESDY = est | ee AT 1 LE\ VEL 
4S: INC RI -SET INTERRUPT KEY 
aTT iE TUR N AFTER INTERRUPT 
S$: CMP (SP)+, (SP)+ THE STACK 
ERROR 6 tT ATERRUPT WENT TO LOCATION 6 
6$: SLR aTacs sCLEAR INTERRUPT ENABLE 
MOV DTAVEC+E, ATAVEC -SET TRAP CATCHER 
CLR JTAVEC+e 
€LR rt 
CLR dee 
pemenesagevecesegtereernerereger anette errtee erraren aoe er on 
THIS TEST WILL SETUP THE TALI’ : VECTOR RODRESS BND AT ADDRESS 0 
ta JMP aPC) IS STORED INCASE THE VECTOR IS R 
?IT WILL THEN SET THE PRIORITY LEVEL TO 3 AND FASTE ENOUGH TIME 
;FOR AN INTERRUPT TO OCCUR. 
:AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
?AND CHECK IF AN INTERRUPT OCCURRED. 
s casanaahantoinnsnchantesneabeubenucsresnaraessnbeenseunanaceanel 
t STEST 10 TEST INTERRUPT WITH READY = “1” AT LEVEL 3 
ear *2?* pecmaeneeammannaeciaaaceammaeaa amici 
OV #13, SLPADR ;;SET SCOPE LOOP ADDRESS 
HOY 8 SESCAPE ::ESCAPE TO 6$ ON ERROR 
18: MOV DRIVE, aTACS 
MOV #340 aePs ; LOCK QUT aL NTERRUPTS 
MOV #3,R0 beet AT PR OR TY LEVEL 3 
CLR Ri : CLEAR INTERR UPT KEY 
MOV #1, Re :SETUP TO GACTE A LITTLE TIME 
MOV #4$ STAVEC : INTERRUPT RETURN 
MOV #340, JTAVEC+2 “LOCK OUT THE LIORLD IF INTERRUPT 
MOV #137; a80 : SETUP i CATCH INTERRUPT IF 
MOV #5$,d82 : GOES TO LOCATION O 
MOVB = #INT.EN, TASS -SET INTERRUPT ENABL 
MOV #3#40, a4PS sSET TO PRIORITY LEVEL 3 
28: ASL Re ‘KILL SOME TIME 
BNE 23 
MOV #340, J8PS “LOCK OUT THE WORLD 
TST R1 *DID AN INTERRUPT OCCUR? 
BNE 3$ ‘BR IF YES 
CHP B3#40, J8TAPRIO ; WAS AN INTERRUPT EXPECTED? 
ERROR 6 INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 3 
23: CHP #3440, J4TAPRIO s INTERRUPT OCCURRED--SHOULD IT HAVE? 
BE tOR 6 ifNt RRUpY OCCURRED AT PRIORITY LEVEL 3 
4§: INC R1 ;SET INTERRUPT KEY 
pat RETURN AFTER INTERRUPT 
cs: C (SP)+, (SP)+ :POP T 
ERROR 6 ‘INTERRUPT WENT TO LOCATION O 
6S: CLR aTACS ;CLEAR INTERRUPT ENABLE 
MOV JBTAVEC+2, ITAVEC *SET TRAP CATCHER 





raul BASIC LOGI c, TEs? (PART 2) MAINDEC-11-DZTAB-C MACYL1 27(722) 19-AUG-76 11:51 PAGE 26 
TABC. NEW TEST INTERRUPT WITH PEADY = "1" AT LEVEL 32 
1088 904336 O0SO77 174656 CLR JTAVEC+2 
1989 So434e coso37 990000 CLR 380 
1030 oO4346 coso27 900002 CLR a#e 
1031 1 HEUHRH EEE ELE A ete ADDRESS AND AT ADD 
1092 THIS TEST WILL SETUP THE TAL1’S VECTOR ADDRESS AND AT ADDRESS 0 
1093 "A JMP a(PC)+ IS STORED INCASE THE VECTOR IS READ 6 
1994 IT WILL THEN SET THE PRIORITY LEVEL TO 4 AND WASTE ENOUGH TIME 
1095 FOR AN INTERRUPT io occu UR. 
1096 ZAFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 
ids? tAND CHECK IF AN INTERRUPT OCCURRED. 
10358 ; jRPRRORAHEAREREEASEARESESSESSESSREAERE RENEE ESSEORSES ESTE DASRESES 
1998 t4TEST 11 TEST INTERRUPT WITH READY = "1" AT LEVEL 4 
1106 PEEPEET ETT TETETTT TESTES ERT ET TUTTESETSTTTTTTTeriTritt iret rrr r tee. 
110: oo43S2 oo0co4 tr COPE 
1102 954354 Ole767 004272 174524 MOV #1$, SLPADR :;SET SCOPE LOOP ADDRESS 
| 1103 004362 912767 OO4S30 174600 MOV 86, SESCAPE !:ESCAPE TO 6$ ON ERROR 
| 19% 04370 000005 RESET 
| 16S 004372 910314 18: MOV DRIVE, aTACS 
(| T3906 004374 012737 900340 177776 MOV #340, aePS sLOCK OUT ALL_ INTERRUPTS 
| 3367 oO44o2 Ole700 o00004 MOV #4, RO TEST AT PRIORITY LEVEL 4 
1108 9044O0e 905001 CLR Ri :CLEAR INTER UPT KEY 
1163 OO4410 012702 000001 MOV #1,R2 ‘SETUP TO WASTE A LITTLE TIME 
| ate OOM4IS Ole77? Ga4S20 174574 MOV 84d JTAVEC ; INTERRUPT R RETURN 
111] 004422 012777 290340 174570 MOV #345, JTAVEC+2 “LOCK OUT THE WORLD IF INTERRUPT 
tile pou 30 012737 000137 90000 MOV #137, 980 ‘SETUP TO CATCH INT ER RUPT IF 
111 36 612737 004524 o00002 MOV. #53, ake T GOES NO 
| TL poww4y 118714 000100 MOVB - #INT. EN, QTACS SET TN TORRUPY ENRBL te” 
' ris o044s0 912737 CO0eol 177776 MOV #4%40, JRPS :SET TC PRIORITY LEVEL 4 
' $TIB 804456 302 23: ASL R2 KILL SOME TIME 
Ei hey 00137 SNE 2g 
tlle 804462 012737 000340 177776 MOV #240, daPS sLOCK OUT “THE WORLD 
i113 70 005701 TST RI 0 AN INTERRUPT OCCUR? 
1120 OoNH7e 001005 = § BNE 3g :BR IF YES 
ile] 74 O22737 O00200 ooleze CHP #4440, DETAPRIO ;8as AN INTERRUPT EXPECTED? 
ile2 904502 O0-0le GE 3 
itg3 Aowso4 104056 ERROR 6 SE NTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 4 
125 04506 022737 C00200 O01222 3$: CMP 84#40, Je TAPRIO ; INTERRUPT OCCURRED--SHOULD IT HAVE? 
lize So4514 Ofa4ns BLT, 6S FY 
ite? Go45i6 idsoc6 ERROR 6 INTERRUPT OCCURRED AT PRIORITY LEVEL 
oe 
1129 GO4S20 905201 4g: INC RI! ;SET INTERRUPT KEY 
1130 So4se2 so0cce ATI SRE TURN RETER INTERRUPT 
1i3l bovEes D22b26 S$: Che (SP)+, (SP i+ HE STACK 
iize GOY¥ESS 10400 ERROR 6 TN TERRLP WENT TO LOCATION O 
> 
1134 o4S30 o0S014 _ 6S: CLR QTACS ;CLEAR INTERRUPT ENABLE 
113s tose O33 091220 1745s MOV DETAVECHE, JTAVEC SET TRAP CATCHER 
1136 54 077 174454 CLR TAVEC+E 
1127 oo4S44 005037 oo0c00 CLR 
3128 GONSs0 005037 20000e CLR aa2 
i 13 $A TET TE SETUP THE TALL's VECTOR ADDRESS, AND AT AD 
1139 TAIL SETUP THE TAL! '$ WECTOR pooRESS AND DAT ADDRESS 0 
thas i ite FreN N SET he THE sisi 18 Lpoev” $5 8 AND WA = ENOUGH TIME 
1143 OR fii INTERRUPT TO OCCUR 
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rag << MACYLL 27(732) i9-6uUG-78 11:53 &RGe 27 
ey 2 "3° AT LEVEL 4 
sHPTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7 


SAND CHECK IF AN INTERRUPT O- CURRED. 
jSenenehennenenseeeeeenaseeeaenenesaseneeenenseentvessatesetorse 


ISTEST 12 TEST INTERRUPT WITH READY = "1" AT LEVEL 5 
wn, pec on Tene seer 
SCOP 
MOV a1$, $LPAOR ::$ET SCOPE LOOP ADGRESS 
MOV wb$;SESCAPE L:ESCAPE TO 6$ ON ERROR 
RESET 
be MOV DRIVE, aT acs 

MOV 340, daPS LOCK OUT ALL INTERRUPTS 
MOV io TEST AT PRIORITY LEVEL 5 
cuR Ri :CLEAR INTERRUPT KEY 
MOV ; SETUP TO HOST A LITTLE TIME - 
NOV sat Sravec INTERRUPT RETURN 
MOV 8346, aTAVEC+2 sine OUT THE WORLD IF INTERRUPT 
MOV 8137, 080 SETUP TO CATCH INTERRUPT IF 
MOV a5. bes : ‘eee tt SUES 19 LOCAT 
MOVE = sINT.EN, 27ACS SET INTERRUPT ENABLE 
MOV 95449, 58°5 :SET TO PRIORITY LEVEL § 
B51. R2 :KILL SOME TIME 
BNE 2$ 
MOV 240, aaFS LOCK OUT THE WORLD 
TST Rl {010 AN INTERRUPT OCCUR’ 
SHE 3$ :BR IF YES 
cre ac+40, NT APRIC ; WAS BN INTERRUPT EXPECTED? 
ERROR 6 SINTEFRUPT FAILED TO OCCUR AT PRIORITY L 
CMe #5#40, Ja TAPRIO ; INTERRUPT OCCURRED--SHOULD IT HAVE? 
ELT 63 RIF YE 
ERROR & SINTERRUPT OCCURRED AT PRIORITY LEVEL 5 
INC Ri ;SET INTERRUPT KEY 
RT :RET URN AETER, INTERRUPT 
CMP (SP)+, (SP)+ :POP THE STACK 
ERROR & LINTERRUPT WENT TO LOCATION 0 
CLR aTACS ;CLEAR INTERRUPT ENABLE 
MOV DBTAVEC+2, ATAVEC SET TRAP CATCHER 
CLR aTAVECHE 
CLR 80 
CLR 


5 PESEERESEEEERERSESEE EAE SERA REEALERREREEEAE ARE ERLE ERE ELLER EEE 
i HIS TEST WILL SETUP THE TALi’S VECTOR BORE SS AND AT ADDRESS 0 
A _JMP @(PC)+ IS STORED INCASE THE VECTOR IS R 
:Tt bee TERRY SET Ve om LEVEL TO & AND WASTE ENOUGH TIME 
‘ATER THE TIME Ig lp IT WILL RESTORE THE PS TO LEVEL 7 
‘AND CHECK IF AN INTERRUPT OCCURRED. 
;pDOREOOAOORERERASOREHEAAASUAEHHAAOOBAAEEAHH AR EEHEHHRD EEE HEHEHE 


TEST 13 TEST INTERRUPT WITH READY = "1" AT LEVEL 6 
Lreetoaddapreeensaustisieterestovanistearestessnaiivstetessaass 
a MOY #13, SLPADR :;SET SCOPE LOOP ADDRESS 


MOV nb$, SESCAPE ;;ESCAPE TO 6$ ON ERROR 
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Li-D2TRE=-C MACY II 27 (732) 
ITH READY = "1" GT LEVEL 6 
RESET 
MOV 8340, 08° 
MOV 86, RD 
CLR e] 
MOV #i,Re 
MOY #4$ STAVES 
ee 9246, aTAVEC+2 
MOV 8137,280 
Moy #55, 392 
Movs SINT.EN,a7ACS 
MOV 5540, oaPs 
23 ASL Re 
BNE 3 ~ 
MOV 8340,a8FS 
iST Ri 
BNE 3S 
CME 6240, Da TAPRIO 
BGE 6$ 
ERROR E 
3s: CMP e6#40,S3aTAPRIC 
SLT és 
ERROR § 
48: INC Ri 
RTI 
S$: CMP (SP)+,(SP)+ 
ERROR 6 
&$: CLR aTacs 
MOV JBTAVEC+2, STAVES 
CLR aTAVEC+2 
CLR a30 
CLR ase 


autos ea Tg og ETD EE eo ae oe ae 
s THIS TEST WILL SETUP THE TAL1’S verte ADDRESS AND AT ADORESS 0 

A_JMP @(PC)+ IS STORED INCASE THE VECTOR IS RE 
Tr WILL THEN SET We PRIORITY LEVEL TO 7 AND WASTE ENCUGH TIME 


: UPT TO OCCUR. 
:AFTER THE TIME IS UP IT wi! LL RESTORE THE PS TO LEVEL 7 
sAND CHECK IF AN INTERRUPT OCCURRED. 
: ctaanesbeensseeseaneuaneesnsannee na ceneannaaeneenanenennasneess 
:bTES T 14 TEST INTERRUPT WITH READY = "1" AT LEVEL 7 
+ ESE EESEERESEEREE SERRE EEE ER HEED EEESER ER EEREEEES FE EREEEREEEEEEEER 


Ti4: SCOPE 


¥ MOV #1$, SLPADR ;;SET SCOPE LOOP ADDRESS 
aie MOV aes SESCAPE ;;ESCAPE TO 6$ ON ERROR 


1$: MCV DRIVE, aTACS 
MOV #210, ePs 
MOV a 


MOV ua SravEC 
MOV 8340, JTAVEC+2 


co4 


tbc ou T THE WORLD IF INTERRUPT 
sSETUE I TO gin Syren B IF 


IT GOES T 
:SET INTERRUPT ENGEL Me 
iE TO PRIORITY LEVEL 
ME 
sLOSK OUT THE WORLD 
:DID AN INTERRUPT OCCUR? 
:BR IF YES 
* WAS BN INTERRUPT EXPECTED? 
S INTERRUPT FAILED TO 0 
: INTERRUPT OCCURRED--SHOULD 1 HAVE? 
: INTERRUPT OCCURRED AT PRIORITY LEVEL 


eet INTERRUPT KEY 
TURN gt haa 


BoP THE 
;INTERRUPT WENT TO LOCATION © 


;CLEAR INTERRUPT ENSEL 
;SET TRAP CATCHER 


sLOCK OUT ALL INTERRUPTS 
TEST AT ad LEVEL 7 


ERR KEY 
SET UP TO Haste A LITTLE TIME 
LOCK OUT THE WORLD IF INTERRUPT 
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ASIC LOGIC TES? (PART 2) MAINDEC-1)-D27AB-C MACYI1 27(732) L9-UG-7E 15:53 PASE 29 £5 O04. 
NEW 714 TEST INTERRUPT WITH GEADY = "1" AT LEVEs ? 623 C42 
p0S236 012737 990137 290000 MOV e137 80 -SETUP TO CATCH INTERRUPT IF 
505244 Giers? 655332 800002 My 053, O82 - IT GOES 76 LOCATION G 
995252 112714 600199 MOVE 3s @ INT EN TACS “SET INTERRUPT ENPELE 
005256 Olers7 o0054d ivr7ts | May 87940, aRPS :SET TO PRIORITY LEVEL 7 
005264 606302 23 asi. f2 :KILL SOME TIME 
501376 ENE 23 J 
005270 Ole73? O0O34O 177775 MOV 8340, daPS :OCK out THE WORLD 
905276 90575! TST Ri “CID @ N IN TESRUPT OCCUR’ 
005309 001005 : BNE 33 : ‘SR IF Y 
302 Ose73s7 COOS4O 001222 ne 87#40, DETAPRIO ‘WAS AN CNTERRUPT EXPECTED? 
005310 Oodzdle ENS &$ :BR IF NO 
005312 104006 ERROR 6 - INTERRUPT FAILED TC CCCUR AT PRIORITY LEVEL 7 
005314 022737 cOOR4C 001222 38: CME 8740, DaTAPRIC s INTERRUPT OCCURRED--SHOULD IT HAVE? 
g55322 o5e405 SLT 33 : Y 
1O4O0 ERROR 6 !INTERRUPT OCCURRED AT PRIORITY LEVEL 7 
posaze 90520: 4S: INC R} :SET INTERRUPT KEY 
855330 900002 s RTT ;RETURN AFTER INTERRUPT 
Ro5s22 Se>b26 S$: CMP (SP, (SP)+ THE STACK 
DO5334 104006 ERROR INTERRUPT WENT TO LOCATION © 
005336 095014 6S: CLR aTacs : CLEAR INTERRUPT ENABLE 
Q05340 013777 001229 173650 MOV JSTAVEC42, ATAVEC >SET TRAP CATCHER 
D05246 995077 173646 CLR DTAVEC+2 
o053s2 605927 dodc00 ELR aed 
ocos €LR dee 
5 FS SESRALAESESESELEELEESALEFAEL ES ALELELAAFAESERRELELLEL LAAT SAFES 
-ETEST 15 TEST INTERRUPT WITH “TRANSFER REQUEST” = | 
905362 “a re Lo ge ae angetoo eo naemaene Rem ee 
805364 Ol2e767 o00010 172674 MOY 810,STIMES +100 10 ITERATIONS 
505372 Ole7s7 005420 173506 MOV 843; SLPADR :SET SCOPE LOOP ADDRESS 
855400 12767 005530 1i735é2 MOV 833; SESCAPE !:ESCAPE TO 3$ ON ERROR 
oo5406 ooc00s RESET 
005410 910314 MOV DRIVE, a sSELECT Drive 
S4le 112714 000017 Nove SREMIAD SCC ATACS POSITION t HE TAPE ’ 
416 id44ie WAI TREADY :GO WAIT FOR “READY” TO SET 
095420 010314 4$: MOV DRIVE, aTACS :SELECT DRIVE 
995422 1le714 o0000) MOVB BF G*G0, 2TACS ;START A “WRITE FILE SAP” 
COS42E 104u!12 WAI TREADY :GO WAIT FOR "READY" TO SET 
605430 012737 000240 177776 MOV #340 asPs LOCK Our ALL INTERRUPTS 
005436 912761 o0000! MOV ‘SETUP TO WASTE SOME TIME 
O96442 012777 O0S526 173546 MOV #5 : SETUP INTERRUPT RETURN 
OOS4SO 012777 000340 173542 MoV iit, pavece2 SPRIORITY "2" ON INTERRUPT | 
005 012737 000137 O035090 MOV $137,380 ; CATCH INTERRUPT IF IT GOES 
QOS4E4 012737 OOSs22 o00002 MOV S$ Dae 10 LOCATION 0 | 
005472 lie714 O00103 MOVB SaALTETINT.EN! G0, 2TACS :STRRT A “WRITE” WITH “INT. EN.” 
005476 104413 WAITXFER 0 WAIT ON “TRANSFER REQUEST” TO SET 
605027 177776 CLR aePs iPevEL 0 
504 005090 CLR RO 
005506 006301 18: ASL Ri sKILL A LITTLE TIME 
005510 0012 BNE i$ 
905512 012737 O00340 177776 MOv #340, aePS ;LOCK OUT ALL INTERRUPTS 
605520 104006 ERROR 6 | : INTERRUPT FOR XFER REQ. FAILED 
905522 feztee cs: CMP (SP)+, (SP)+ :PO® THE STACK 
| 
| 
Lote 
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a ee te eee eee so ny etme sent eas at ee LE EE ALLE LL ADL ELL TT 


EQ4 


TRI BASIC LOGIC TEST <FART 2) MAINDEC-]1-02TAB$C MACYI1 2@7(722) l9-AUG-76 11:53 FASE 30 
DITABC. NEW T15 TEST INTERRUPT WITH “TRANSFER REQUEST” = | 
1312 905524 104006 ERROR sINTERRUPT WENT TO LOCATION © 
1313 005526 Oceb=é e$: CMP (SP)+, (SP)+ ;POP STACK 
1314 005530 000005 oe 3$ RESET ;CLEAR A 
1315 Ois?7e OClze0 7 s456 MOV QBTAVEC +2, STAVES ;SET TRAP CATCHER 
1316 OOS54O OOSOT? i°s8S4 CLR aTAVEl +e 
1317 o6Ss44 005037 S20002 CLR aad 
1318 GO 308037 00000e CL vee 
2315 5s EERE REREEERE ERREREEELER EERE ERE RE REE EAE EERAEERE EERE REE EEE SF 
1329 s#TEST 16 TEST INTERRUPT WITH “READY” = 0 AND “XFER REG" = 0 
1321 LLEPPAERESRRESARERERARRREESERERSRAS ASA EE REE REE ELAR ERE SEES ESAS ESE 
isée 905554 900204 mena 90d: SCOPE ’ 
l3e3 005556 O1e767 900001 i734be MOV #1, STIMES 3300 1 ITERATION 
t3e4 005564 Ole7b? O0S/e4 172376 MOV a5$, SESCAPE ;;ESCAPE TO S$ ON ERROR 
t3eS 005572 Ole7&7 O0Sre4 OO0CE+ MOV #5$, 23 
1328 905600 012701 00900) MOV ai.Ri 
13e7 4 Ole7s? O00S4O 177776 MOV. #3490, SaPS sLOCK OUT THE WORLD 
1328 te 00005 RESET r ;CLEAR THE WORLD 
i329 905614 010314 MOV DRIVE, aTACS ;SELECT DRIVE 
1330 16 104412 WAI TREADY ;GO WAIT FOR “READY TO SET 
1331 005620 Qle777 O0S714 173370 MOV e4$ STAVES sRETURN IF INTERRUPT OCCURS 
igz2 005826 Qle777 900340 173565 MOV #340, JTAVEC+2 sLEVEL “7" IF INTERRUPT 
1333 005634 012737 000137 $0000 MOV #137, a0 :CATCH INTERRUPT IF IT GOES TO 
1524 005642 Ole737 0057e0 OCluC MO' 87$, 982 ; LOCATION 0 
1335 OOSESG 112714 O001i7 MCV SRENINOP INT. EN!GO, aTACS 
1335 OOSESY 03714 O0Ce40 i$: eas STR.REGIREADT STALS ;GIVE READY TIME TO CLEAR 
1337 005660 001404 BEQ es 
i238 005662 905327 dec (PC}+ 
2339 905664 000000 3 
i340 905665 O0l37e 1$ 
1341 005670 20400) ERROR 1 ;READY OR XFER REG = "1" 
lgve 00567e 005037 177776 es: CLR aaPs ;ALLOW INTERRUPT 
i343 605676 90500 CLR RO 3A: LEVEL 
1344 005700 es: ASL Ri sGIVE INTERRUPT TIME TO COME IN 
1345 001376 = BNE oe. | 
1346 005704 Ole737 COOsHO 7777 MOV #340, csPS ;LOCK OUT INTERRUPT 
1347 005712 00404 BR $$ ;EXIT WITH NO ERRORS 
1348 005714 Oeebeb 4§: CMP (SP)+, (SP)+ ;POP ST 
1343 005716 104006 ERROR 6 : INTERRUPT OCCURRED 
1350 005720 Oeebet 78: CMP (SP)+, (SP)+ ;POP THE STACK 
1351 905722 104006 ERROR 6 ;INTERRUPTTED TG LOCATION 0 
i352 905724 900005 S$: RESET ;CLEAR THE WORLD 
1253 005726 013777 001220 1732te MOV aaTAVEC+2, aTAVEC ;SET TRAP CATCHER 
1354 005734 005077 173260 CLR aTAVEC+2 
1255 005740 005037 000006 CLR o#0 
1356 005744 005037 00000e CLR te 
1357 5 RARER EAE EEE ERE REAR ER REE E REE EERE EERE! REAR EEE ES 
1358 ;#7EST 17 TEST INTERRUPT WITH “XFER REQ" = 1 & “TIMING ERROR” = 1 
1359 LER EEREERE RE RAE ERE EES EREE REE RREREE EA EHEA EER RE RARER ER EEE ERENT 
2363 005750 COOC04 717: SCOPE 
i361 005752 Ole7&7 OCOOl2 173206 mov #10. STIMES ;;00_10, ITERATIONS 
lzt2 G05760 O12767 006014 173120 mov #1$, $LPADR ;3SET SCOPE LOOP ADDRESS 
1263 005766 Ole767 O0teee 173174 MOV sli$,SESCAPE § ;;ESCAPE TO 11$ ON ERROR 
1364 905774 000 RESET CL L 
1365 005776 010214 MOV DRIVE, aTACS ;SELECT DRIVE 
1366 O06000 11e714 000017 MOVB BREWIND!GO,aTACS ;G0 TO “BOT” 
1367 906004 204412 WAI TREADY ;WAIT ON READY 
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EQ" = 1 8 “TIMING ERROR" = 1 
1. BF GIGO,aTACS 
Wal TREADY 

MOV DRIVE ,aTACS 
MOVE _alIRITE!GO, aTAC 
WAI TXFER 

MOVE $377, aTADS 
CLR RO 

CLR Ri 

T37B aTAcS 

ee ee 

ALD 810,RC 

DC Ri 

SPL es 

ERROR 1 

TSia aTacs 

BFL 43 

Sug gi,Fo 

SBC R} 

BPL 3$ 

BR cs 

ERROR 1 

Mol s83, JTAVEC 
MOV #340, JTAVEC+2 
MOV 8137080 

MOV 873, a#2 

MOV #1, 

CLR sabe. 

CLR R 
BIS SINT.EN  aTacs 
ASL RI 
BNE at ‘ 
MOV 9340, 24P5 
ERROR 6 

cme (SP)+, (SP)+ 
ERROR 6 
CMP (SP)+, (SP )4 
TST32 T 
WAI TREADY 

MOV to aTAVEC 
MOV Ri 

CLR sihs 

ASL 
BNE a 

MOV #240, DePS 
ERROR 6 

MP (SP)+, (SPi+ 
RESET 
MOY BTAVEC+2, JTAVEC 
CLR aTAVEC+e 

CLR aed 

CLR ase 


i9-AUG-76 11:53 PAGE 3] 


2SE7 ON OXIDE 

;SELECT DRIVE 

: START A WRITE 

sHA1T On Pi dead REQUEST” 
:ZERO THE COUNTER 

sCHECK “XFER REQ” 

:BR iF SET 


sFIN ND OUT HOW LONG IT TAKES 
FOR “XFER REG" TO SET 


iT AEER REG" DIDN’T SET 
;CHECK “XFER * Ir iy i§ s 


COUNTER 
50 A “TIMING ERROR WILL OCCUR 


;"AXFER REQ” CLEARED 


ae Te INTERRRUPT RETURN 
RITY “7° ON INTERRUPT 
‘CATCH INTERRUPT IF IT GOES 
TO LOCATION 
ISETU P TO as SOME TIME 
ALLO INTERRUPTS 
LEVEL aa 
STURN ON “INTERRUPT ENABLE” 
GIVE INTERRUPT TIME TO OCCUR 


;LOCK OUT INTERRUPTS 
SFAILED TO INTERRUPT WITH “XFER REQ” = } 


sPOP_THE STACK 

ZINTERRUPT WENT TO LOCATION 0 

;POP THE STACK 

:KNOCK DOWN “XFER REQ" 

;WAIT ON “READY CAUSED BY “TIMING ERROR” 
:SETUP INTERRUPT RETURN 
SSETUP TO WASTE TIME 

SALLOW_ INTER 


INTERRUPTS 
GIVE INTERRUPTS TIME TO OCCUR 


;LOCK_ OUT INTERRUPTS 
"INTERRUPT FAILED TO OCCUR FOR READY 


;POP THE STACK 
;CLEAR ALL 
;RESTORE THE TRAP CATCHER 
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LL-DITAB=C MACYI1 27(73e) 
1% FUNCTIONS ##a42 
SEF FEF IL SSIS TT J/ bby ISI IF PETIA IIL AST 
nee, CS GD SIF EEF I LFF 


THE POLL CHING 





19-AUG-76 11:5; 


LESS PIE ELE PEELS SOPILIS ELAS FEF SEF 


LVAATALTAEISD SALT LAID ADSSAVAL TESA TAAL LS ELLA 
TEST ARE USED TO CHECK THE BASIC OPERATION UF THE SPACING FUNCTIONS 


i GAFSATASSTAATATTAAOPAT AAS AAT AS AAPA TAA OATS AAT EAA S SESSA 
eetenseasestapsesenesninenereseaeneneanssanensneseanisccnteees 


r:eeeesennasenansensenssosnensespeanaenasseneanenensensssere yes 


F$TEST 20 TEST “BACK SPACE FILE G 
tit55. SCOPE 
ay #10. STIMES 
MOV #33. $LPADR 
Hoy aTSt21, SESCAPE 
23: MOV DRIVE, aTACS 
MOVB  —_—« SREWIND!G0,aTACs 
WAITREADY s 
MOVE BWFGIGO, 2TACS 
WAI TREADY 
MOVB _ SWRITE!GO,aTACS 
WAITXF 
MOVE #377, aTADB 
WAITXFER ; 
BIS 8ILBS,aTACS 
WAITRE 
MOVE SBSFG!GO,aTACS 
WAITREADY 
IT #FGAP,aTACS 
BNE 1$ 
ERROR 1 
13: TST dTAaCS 
SPL 2$ 
ERROR | : 
23: IT SLEADER, STACS 
EG TST2l :;BR IF 


+300 10, pTERAT TON 
ET SCOPE L 
: EECaRE TO TEST 21 ON ERROR 


ADDRESS 


; SELECT DRIVE 

POSITION TAPE ON oe LEADER 

:G0 WAIT FOR "READY" TO SET 

;WRITE @ FILE GAP SS ae CLEAR LEADES 


:G 9 7) 
+4 A DATA BLOCK ON THE TAPE 

WAIT ON ace ke REQUEST” TO SET 
ERNOCK DOWN 
:G0 WAIT ON nTRNGFER REQUEST” 


c* 
FOR “READY” TO SET 


;BR 
s;ERROR--NO FILE GAP INDICATION 
;I1S “ERROR” =1? 


;"ERROR” =1 
id? “CLEAR LEADER” =1? 
“WFG" OR “BSFG” FAILED 


OR 
$ PTT ERE PET T ETT TTT Teer TTT TT Tere TT TT PTET et terrier erty r Trt ee 


; #TEST 21 


TEST “SPACE FORWARD FILE GAP” FUNCTION 


s LERELLERE FEEL EE ELEREEELET ET LE LEE LRLEERE RE RRL LAE LEER ELEAF RELERE 


+412]: SCOPE 
M #5, STIMES 


OV 
MOV #1$ $LPADR :SET 
MOV aTSt22, SESCAPE 
RESET 
MOV DRIVE, aTACS 
MOVS BREMTAD! CO. aTAcs 
WAITREADY 
MOVE #WFG!GO,aTACS 
WAI TREADY 
MOVB _ SWRITE!GO,aTACS 
WAITX 
MOVB #377, aTADB 
WAIT 
BIS #ILBS,aTACS 
WAI TREADY 
MOYB  #WFG!GO,aTACS 
WAIT 
1S: MOVE SREWIND!GO,a7ACS 


$320, S_ITERATIONS 
SCOPE LOOP ADDRESS 
:;ESCAPE TO TEST 22 ON ERROR 


s SELECT A at M3 
;POSITION THE TAPE 

GO WAIT FOR “READY” TO SET 

WRITE FILE GAP OFF OF CLEAR LEADER 
0 FO TQ SET 


G0 WA en 
sPUT wire DATA ON TAPE 
WAIT ON vFRANSEER REQUEST" TO SET 


Nock OWN at REQ 
:GO WAIT ON “TRANSFER REQUEST” TO SET 
;WRI E CRC AND 


ADY" TO SET 

WRI u Pius GAP AFTER THE RECORD 
;GO WAIT FOR “READY” TO SET 

‘REPOSITION THE TAPE 


Se a we me ne a ee ee 
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BASIC LOGIC TEST :FART 2) MAINDEC-11-D2TAB-C MACYL1 27(732) 19-AUG-76 11:53 PAGE 32 
* NEW T2! TEST “SPACE FORWARD FILE GAP" FUNCTION 
posw7o 104412 WHITREADY -50 WAIT FOR “READY” TO SET 
OGe472 liem14 200013 MOVE wSFFG!GO,aTQCS : SPACE OVER THE RECORD” 
Do8476 iO4412 WAI TREADY GO WAIT FOR “REGDY” TO SET 
9sesoa o32718 ooyooo SIT #FG8R, ITACS ;SETTING IN A FILE GAP? 
S5s=04 601092 SNE TSTee' :38R IF YES 
cossos 910400! ERRO NO FILE GAP INDICATION 
y SE REEAESEARAAEALAREAAREDEEREEAED EE ADEE ES ERED SEALE EAE ESE TS ESSE E 
tSTEST 22 TEST “BACK SPACE BLOCK GAP” 
bigestere FRESELELFFFR Co aNGEE EET ENEEESEETAERENEEEEEREESERHEREREEES 
oossic ococo4 tStTz2: § 
O06512 012767 ooccos 172446 MOY 8S STIMES | :300_5_ ITERATIONS 
o0gS20 o1e767 906536 172260 MOV #1$, $LPA -:SET SCOPE LOOP ADDRESS 
oge526 Oleré7 O06se2 172434 MOV sTSt23, SESCAPE St egc APE TO TEST 23 ON ERROR 
d06534 909005 RESET 
906536 010314 i 1g: MOV DRIVE, aTACS :SELECT DRIVE 
606540 i12714 900017 MOVE @REWIND!GO, aTACS :606 TO CLEAR LEADER 
poes44 104412 WAI TREADY :GO WAIT FOR “READY” TO SET 
006546 112714 oo0000: MOVE aWFG!GO, aTACS ‘RITE AF 
onesse 104412 WAITREADY 42 GO WAIT FOR “READY” TO SET 
006554 112714 ococd3 MOVB _ SWRITE!GO,aTACS ‘WRITE A BLOCK OF DATA 
Noesso 104412 WAITXFER :GO WAIT ON "TRANSFER REQUEST” TO SET 
o0gs62 112715 000377 MOVE #377, aTADB :WRITE ONE BYT 
Soess6 104412 WAITXFER GO WAIT ON “TRANSFER REQUEST” TO SET 
o0g570 052714 00020 B75 #IL8S,aTACS tURITE RC" 
095574 1044i2 WAI TREADY :G0 WAIT FOR “READY TO SET 
O06576 112714 oc0022 MOVE  #BSBG'GO,aTACS ;BACK OVER THE 
o06602 i044! WAITR IT FOR nREADY™ TO SET 
Ods604 Sos7is TST aTAC : CHECK FOR ERR 
806606 100091 BPL 2s :BR IF NONE 
610 104001 ERROR 1 “ERROR OCCURRED 
O066le 032714 oeccoo 23: BIT SLEQDER, ATACS :TS CLEAR LEADER=1” 
N0S61S O14: BEQ TSTe3 :;BR IF No 
096620 10409! ERROR 1 ON CLEAR LEADER 
5 FFELELELRERERKERERAEZESE stuesensessesehunaasannecaenasienies? +t 
STEST 23 TEST “SPACE FWD BLOCK GAP 
 SLFSESSRSFELSEERSKERES ST ELSTEALALEFFSERAKLLELESLHRELEHLE REELS SHEEE 
oobs22 on0094 ¢é723: SCOPE 


O066e% Ole767? COO00S 172334 MOV eS STIMES $300, S_ITERATIONS 


17 
O0sss2 Ole767 O06716 172246 Mov #1 $. $LPADR :7SET SCOPE LOOP ADDRESS 

OBEN Cleve? O0G742 l7es22 Mov. #TSt24,SESCAPE ;;ESCAPE TO TEST 24 ON ERROR 

OoSe4e 900005 RESET 

O066s9 010315 MOV aTACS 

Oses2 112714 o00017 MOVE areuino! GO, aTACS ;G0 TO CLEAR LEADER 

BOEESE 104412 WAI TREADY 50 WeIT FOR "READY" TO SET 

O06660 112714 OOCO0i MOVE #KFG!GO, aTACS FILE GAP 

006664 104412 WAITREADY G0 WAIT FOR "READY TO SET 

Qos 112714 coooo3 MOVE _WRITE!GC,aTACS SWRITE ONE BYTE BLOCK : 

O0b672 104413 WAI TXFER :G0 WAIT ON “TRANSFER REQUEST” TO SET 
006674 lie715 000377 MOVE #377, 2TADE 

006700 104413 WAI TXFER ;G0_WAIT ON “TRANSFER REQUEST TO SET 
o0e702 052714 ocone0 BIS __-#ILBS,aTACS SWRITE "CRC" 

COE706 104412 WAI TREADY :GO WAIT FOR "READY" TO SET 

006710 112714 ooo001 MOVE #WFG!GO,QTACS sHRITE A FILE, GAP AETER THE CATA 
006714 104412 WAI TREADY GO WAIT FOR "READY" TO SET 

056716 112714 000017 18:  -MOVB _ #REWIND!GO,aTACS ;G0 TO “CLEAR LEADER” 

00722 04412 WAI TREADY :G0 WAIT FOR "READY" TO SET 
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to LOGIC TEST (PART 2) MAINDEC-11-D2TAS-C MGCYLL 27(722) 19-AUG-76 11:5: PAGE 34 S£5 0047 
EW 723 TEST “SPACE FWD SLOtK GAP” ces 504 
osere4 ery coocls MOVE BSFBG!GO, ATACS SEE IF SFBG WILL SPACE OVER THE SLOCY OF DATS 
DOE7SC LO44lE WATTREADY 30 WAIT FOR “REAGY" TO SET 
pos7se O3e714 124000 BIT #ERRORILEADER!IFGAP, JTACS "ERROR" SHCULD BE CLERS 
096738 60140: BEG TST24 we i SHOULD *¢ cLEAR LE LEADER” AND “FILE GBP" 
p0674o 104001 m ERROR l APE IS IN THE WRONG PLACE AFTER A SFG 
a i thd Peo) 4/ MPPLIATATT SISA SA cea: fy Bey Bie Rn, Bey FSESTS ISSA SSS 
SAAB SISTSSOOOAEESLLAT ALS SAAATASAS SALE AA ASSL 
THE FOLLOWING TESTS ARE USED TO CHECK THE “FILE GAP” CIRCUITS 
TITAS PAGAAALAASAS SAA EOAL SAAS SPIITAIEOTVATA PITA ASAA SAI AS AA AAS ALS SS 
Ce Rb PRR ERER REE EREERA LEAD SEALE REARS SERA EEA EARDEAEEA SEAL EAE REL ESS 
:$TEST 24 TEST AUTOMATIC "WEG WHEN WRITING OFF OF “CLEAR LEADES” 
Cp REAAER ERED ERAEAPERASS SE EEEEEAESEEERER SEERA TRADED AIR EREE EIT TEES 
gce7ee o00004 be55, SCO 
DOETHY Olers? O0012 172214 MOV #10. .STIMES 300. 10. ITERATIONS 
S5e7Se Bleve? Ocer7o l7sicé MOV #1¢. $LPADR “SET SCOPE LOOP ADDRESS 
506760 Sleve7 OC7OSo irzete MOV set3E SESCAPE ::ESCAPE TO TEST 25 ON ERROR 
006766 900905 RESET 
906770 £10314 1$: MOV DRIVE, aTACS_ :SELECT ORIVE 
006772 lievl4 occoi7 MOVB —- BREWIND'GO, aTACS :40 TO CLEAR LEADER 
776 104412 WAI TREADY “ ; G9 WAIT F OF "REPO T™ TQ SET 
907090 112714 oc00gc3 MOVB _&WRITE!GO,aTACS WRITE “AUTO. FILE 
097094 104412 WAITXFER ‘69 WAIT AON oTRANFER REGUEST” TO SET 
pO700 Ole7i§ 000377 MOV 8277 ,OTADE WRITE “DATA” 
O87512 ic4413 Mi WAITXFER e :G0 WAIT ON “TRANSFER REQUEST" TO SET 
067614 OSe714 oco0020 BIS BILBS, aTACS {WRITE " Ac’ 
007520 104412 WAI TREADY :G0 WAIT FOR “R READY 0 SET 
907022 lie7!4 oocoo7 MOVE #BSFG!GO,aTACS BACK OVER THE DAT f.BLOCK 
007026 104412 WAITREADY :G0 WAIT FOR “READY” TC SET 
997030 O3e714 904000 BIT #FGAP, aTACS IN FILE GAP? 
607634 601901 BNE 2g :8R IF YES 
097036 104001 ERROR 1 :NO abate GAP INDICATION 
7040 022714 129000 23: BIT BERROR!LEQDER, JTACS ERR R SHOULD BE CLEAR 
907044 001401 BEG TST25 ;;50 SHOULD EL EAR ADER™ 
057046 104001 ERROR 1 “ERROR OR CLEAR LEADER ON A (1) 
;EERERESRLAHABAEERSRD SARAH EAERERESEOEEESEETEYEEDEAESDEEEO ESET 
:STEST 2s TEST “READ” INTG FILE GAP CAUSES AN ERROR 
«KEELES EERERERERESEREEEE EASED RERELAE EEE RARE ERED AEREER LAER REE EERE 
po7ps0 scooo4 4é725: SCOPE 
no70S2 Ole767 000012 172106 MOV #10. ,STIMES $300, 10. ITERATIONS 
AN706D Ole767 OO710e 172020 MOV #13, $LPADR ::SET SCOPE LOOP ADDRESS 
co7bE 316767 007176 172074 HOV uTSt26,SESCAPE ;:ESCAPE TO TEST 26 ON ERROR 
007076 910214 MOV DRIVE, a ;SELECT DRIVE 
607100 i1e714 000017 MOVB READIES. aTAcs :GO TO BEGINNING OF TAPE 
607194 104412 WAITREADY “WAIT ON “READY” 
097106 312714 900062 18: MOVB  &#WRITE!GO,aTACS Bey A WRITE 
907112 104413 ! WAITXFER WAIT ON oXEER REQ” 
007114 112715 000377 MOVE _ #377, aTADB iW WRITE ONE 
007120 104413 WAITXFER tNATTOON =XPER REQ" 
007122 052714 opcced BIS #ILBS,aTACS sHRITE “CRC™ 
007126 104412 WAI TREADY :WAIT ON “READY” 
907130 112714 coool MOVB  SWFG!GO,aTACS sWRITE A “FILE GAP™ 
0071324 104412 WAI TREADY : WAIT ON “READY” 
097136 112734 o000l1 MOVB  #OSBG!G0,aTACS ‘BACK OVER. THE DATA 
007142 104412 WAITREADY :WAIT ON “READY” 
907144 212714 900015 MOVE #SFBG!GO,aTACS :SPACE OVER THE DATA BLOCK 
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rc LOGIC TEST (PART 2) MAINDEC-11-D2TAB-C MACYLL 27(732) i9-AUG-76 11:51 PAGE 35 sts Cowe 
EW 725 TEST "READ" INTO FILE GAP CAUSES AN ERROR S£3 0046 
ocriso 104412 __ Wn TREADY sWAIT_ON “READY” 
H7152 lievl¥ oogo0os OVB so wREADIGO, aTaCS ‘START @ “READ” 
o67156 1049412 WRT TREADY :WAIT ON “READY 
997169 oos71s TST gTacs SCID AN “ERROR” OCCUR” 
do7162 10049) :BR IF YES an 
OO7164 104001 : ERROR | ~ Z ERROR FRILED TO Ser 
Oorigés 932714 oo4co0 2s: SIT BF GAP, JTACS :15 FILE GAP 
O7l72 603001 BNE TSTz2é 15h IF YES 
e7174 104660) ERROR ! FILE GAP NOT=1 
+ KEE ERARE ERE REESE EA ELSES EAE EEEE EEE E SEERA EERE ESE AEEESE REESE REESE SS 
: TEST 2 TEST “SFBG" INTO FILE GAP CAUSES AN ERROR 
pERFERRREREERERE ERE EELS LR EE FE LEA EER RELERERE ERR ERE REE RELL ERE FES 
007178 oocoo4 S726: SCOPE 
C7200 O1e767 oO0001e 171760 MOV #10. ,STIMES +300 10. ITERATIONS —_ 
867206 Cleve? O07e34 17172 MOV #1¢ $LPADR :SET SCOPE LOOP ADDRESS 
607214 Ole7e7 OO7se4 17174e MOV aTSt27,SESCAPE ::ESCAPE TO TEST 27 ON ERROR 
No7Zz2e2 o0000s RESET 
607204 010314 MOV DRIVE, aTACS :SELECT DRIVE 
007226 lle714 900017 MOVE REL TAD! GO, aTACs ; G0 TO BEGINNING OF TAPE 
po72e3e 104412 ; WAT TREADY WAIT on "READY™ 
097234 112714 900003 18: MOV BWRITE!GO,aTACS : START A WRITE 
007240 104413 WAITXFER ‘WAIT ON “XFER REQ" 
607242 11271 000377 MOVB #377, aTADB ‘WRITE ONE BYTE 
p07246 104413 WAITXFER sHAIT ON “XFER REQ” 
o7250 OSe7:4 ooc020 BIS #ILBS,aTACS T ncRE 
07254 ids4ie2 Wal TREADY iWAIT ON "READY" 
7256 112714 of000! MOVB _- SWFG!GO,aTACS ;WRITE a “FILE SAP" 
007262 104412 WAI TREADY WATT ON “READY” 
507264 11e714 900021 MOVE 3 tSe6!60, aTACS BACK OVER THE DATA 
507270 104412 Wal / :WAIT ON “READY™ 
007272 112714 ococos MGV “85FBG!60, aTacs ;SPACE OVER THE DATA BLOCK 
007276 104412 WAITR shart "READY" 
007300 112714 ooools MOVE $SFBG! GO aTacs :START A “EgG" 
057304 104422 WAITREADY WAIT on y" 
007306 905714 TST aTACS :DID AN "ERROR" OCCUR? 
997310 100401 pM 2s I 
97312 195001 . ERROR | 4 TERROR FAILED TO SET 
73:4 032714 cO#009 23: BIT aE GAP, TACS :IS FILE GAP=1? 
097320 00100: BNE TST27 :;BR IF YES 
837322 i8480i ERR l :FILE GAP NOT=1 
: (OR an OR CEE ch ce TOME kB, A 5m, SER NR 
TEST 27 TEST "ERROR" OUTPUT OF THE STATUS ROM WITH “FILE GAP=1" 
= EERESEEERSSFEARESAERREE AREER SAAAARAFELERALELESHKRAAEHHEAAL RA KASLL ARLES 
007224 9099 $i727: SCOPE 
007326 612767 oO000i2 171632 MOV 810. TINES :D0 10. ITERATIONS 
bor a4 12767 807430 171544 MOV 81$ PAD icey SCOPE LOOP ADDRESS 
7242 Clo767 CO7S74 171629 MOV steta0 SeccaPe i:EScAPE TO TEST SO ON ERROR 
097 2 seers + od DRIVE, aTACS ;SELECT 
oo73 L 
Borseg | idadiz WAITREADY sHFKE “ READY IS SET 
667356 112714 990017 MOV8 _ #REWIND!GO,aTACS ;G0 sBeSINNING OF TAPE 
3e 104412 WAITREADY ROT “RE 
364 112714 oo0001 MOVB _ SWFG!GO,aTACS sGET ofr OF CLEAR LEADER 
370 10441e WAI TREADY WAIT For RE 


s7e 112714 000003 MOVB SURITE!GO,aTACS STAR 
CO737—6 204413 WAITXFER ial of “XPER REQ” 


LT 
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Te? TEST “ERROR” OUTPUT CF THE STATUS ROM wrth” nPtL EG S£2 CoH 
7400 12715 000377 Nuve 8377, aTAC WRITE ONE BYTE 
so74o4 104413 WAITXE Hey ON FER REG" 
406 lie715 o00377 MOVE #77, 2TADS 
7412 10412 pean WAITXFER eth “on XEeR REG" 
p0r4i4 G5e714 cooo20 S75 sIL8S,aTACS sURIT 
7420 104412 WAT TREAD ii 
o07422e 112714 o00001 "Ve BhiFG!GO,aTACS ine He oH FILE cae 
O74e5 104412 WEITREADY ‘WAIT ON “READY” 
097435 112714 o00017 id: MOVB _ #REWIND!GO,aTACS :BACK OVER THE DATA 
907434 «154412 WAIT WAIT ON “READY” 
7436 112714 0009123 MOV HSFFG!GO,aTACS !D0 A SPACE FWD FILE GAP 
oo744e 104412 WAI TREACY 
007444 932714 oosoce SIT SFGAP, aTACS 31S FILE GAP=1? 
go74so 490101 BNE 2g :BR IF Y 
907452 104001 ERROR i FILE GAP NOT=1 
-NOW CHECK "ERROR" BIT FOR ALL FUNCTIONS’ 
oo74ss 112714 900000 2g: MOVB &WEG, aTACS sCHECK “ERROR” WITH “WEG” 
097460 005714 TST aTACS : SAMPLE THE EPROR” BIT 
oo7462 100901 BPL 38 :BR IF “ERROR” = 0 
007464 104001 ERROR : “ERROR” Not =0 
Bore 112714 00002 28: MOVB WRITE, OTACS :CHECK “ERROR” WITH “WRITE” 
7472 O05714 TST aTACS ‘SAMPLE THE "ERROR" BIT 
100001 BPL 4§ :BR IF “ERROR” = 
por476 104001 ERROR "ERROR NOT = 
007509 ile7!4 oocoo4 4$: MOVB  #READ,aTACS ‘CHECK “ERROR” WITH “READ” 
097504 714 TST aTACS ; SAMPLE THE “ERROR” BIT 
007506 100401 BMI S$ :PR IF “ERROR” = 1 
097510 104901 ERROR] :"ERROR” NOT = 1 
pocble herts oo0006 S$: MOVE #OSEG, STAC ‘CHECK “ERROR” WITH nesFG" 
i 714 TST aTACS :SAMPLE THE "ERROR BI 
007520 190001 BPL ;BR IF “ERROR” = 0 
po7eee 10490! ERROR 1 "ERROR" NOT = 0 
112714 ooo010 &$: MOVE § w8SBG,aTACS !CHECK “ERROR” WITH “BSBG” 
007530 005714 TST aTACS ; SAMPLE THE “ERROR™ BIT 
007532 190001 BFL 7$ ;BR IF “ERROR” = 0 
007534 10400! 7 RROR 1 NO 
007526 132714 o0001e2 73: MOVE § &SFFG,aTACS CHECK ™ RROR™ WITH “SFFG" 
007542 905714 TST aTACS :SAMPLE THE “ERROR” BIT 
007544 100001 L g$ :BR IF "ERROR" = 0 
907546 104001 ERROR :"ERROR™ NOT = 0 
607550 112714 o00014 8S: MOVB  sSFBG,aTACS !CHECK “ERROR” WITH “SFEG" 
007554 14 TST aTAcs :SAMPLE THE “ERROR” BIT 
3 100404 I 9 :BR IF “ERROR” = 1 
10400! RROR i "ERROR" NOT = | 
112714 oood1s 93: MOVB § #REWIND,@TACS :CHECK “ERROR” WITH “REWIND” 
005714 TST aTaCs SAMPLE T “ERROR” BIT 
es 100981 pr S730 335R IF *ERRO 
7572 10900] RROR ERROR” N =0 
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FILE GAP=1" 


MAINDEC-11-D2TRE-C 
THE STATUS ROM wrth 


(PART 2) PAGE 37 


TEST “ERROR” QUTPUT OF 


Tall BASIC LOG 19-AUG-76 11:5; 
DITRBC. NEW 


| We iRSe.! 


iC_TEST 
Tz? 


1896 SAAPTPLAEELLAPLALLITATTATALTAAT LALA ALLA TAAVD IAAL LITA AAA ATTA 

1657 SALLITLITALIL LATTA LATTA ATLA ITAA ALATA SAAD IAI ATA ALMA 

1638 ;THE FOLLOWING TESTS INSURE THAT BACKING INTO “CLEAR LEADER” CAUSES AN ERROR 
1699 SASLEPTAALAALLETAALEATTTTLTAEEAATAA ALATA AAD AAADAAAAA AA AAAS LSAT 

1700 5p RRRERRERRRE REE EERE EE EEE EEREE EKER EE EERE EREEES EE EREEE AR EEE PEE 

791 :#TEST 30 TEST BACK-SPACE-FILE-GAP INTO CLEAR LEADER 


| 
l 

1782 © LEREFHERAASELSFRAAA LHS AE EFSA ESSE SSR ERAERELELHRLAAKLARSRKE KS FLFFFE 

| 1293 997574 900004 +8730: SCOP 

| 204 007576 612767 o00012 171262 May #10. ,STIMES $300. 10. ITERATIONS 

| 3705 Oo7604 Olever 007700 171274 MOY #13. $LPADR ::SET SCOPE LOOP ADDRESS 

| i706 OO7b1le 12767 O10005 171350 MOV #TST31, SESCAPE + PE CaE TO TEST 31 ON ERROR 
1707 007620 900005 RESET 
1708 O07622 910314 MOV DRIVE, JTACS sSELECT DRIVE 
1708 oOO7624 i0441e WAITREADY “MAKE SURE READY IS SET 
1710 907626 112714 000017 MOVB  ®REWIND!GO,aTACS 560 TO BEGINNING OF TAPE 

| i711 807632 104412 WAITR ‘WAIT py" 

1712 007634 112714 o00001 MOVB SUF! GO, aTACS ‘GET OFF OF CLEAR LEADER 

| i713 oo7640 104412 WAIT :WAIT FOR READY 

' 714 O07642 112714 900003 MOVB $WRITE!GO, aTAcs is! ART A WRITE 

| i715 007646 104413 WAITXFER WAIT ON = XEER REQ” 

| 1716 907650 112715 000377 MOVB __&377,2TADB sMRITE ONE BYTE 

|; i717 o07e54 104413 WAIT ‘WAIT ON "XFER REQ” 

| 2718 007656 112715 000377 MOVB #277, aTADB Wl 

| 3719 907662 104413 WAIT WAIT ON “XFER REQ” 

| 1720 OO7664 O5e714 ococoeD BIS #ILBS,aTACS ;WRITE “CRC 

' 3721 007670 104412 WAI TREADY “WAIT ON “READY™ 

| 1722 007672 112714 occool MOVB _ &WFG!GO,aTACS ‘WRITE A “FILE GAP” 

' 3723 OO7676 104412 WAITREADY WAIT ON “READY” 

1724 907700 112714 000017 13: MOVE _ #REWIND!GO,aTACS ;BACK OVER THE DATA 
1725 007704 104412 WAI TREADY ‘WAIT ON "READY™ 

1726 007706 112714 o0n013 MOVB  &SFFG!GO,aTACS :DO A SPACE FWD FILE GAP 
i727 O077le 10441e WATTR Y 

1728 007714 632714 oo4oCO BI #FGAP, JTACS :1S FILE GAP=1? 

4729 09 001001 BNE 23 iB IF Ew 

, 1730 104001 ERROR 1 FILE SAP =] 

1731 0977 112714 90¢007 2$: MOVB _—« SBSFG!GO, aTACS 0 FIRST FILE GAP ON TAPE 
1? 7730 105412 WAIT :80 WAIT FOR "READY" TO SET 
1733 007732 032714 OO4000 BIT 8FGAP, ITACS IN FIL GAP? 
i734 007736 001001 BNE 3$ :BR I 
1735 907740 104001 ERROR 1 :DIDN’T STOP IN A GAP 

_ 3736 007742 g3e714 100000 38: BIT #ERROR, JTACS :DID WE GET AN ERROR? 

| 4737 007746 001401 BEQ 4§ :BR IF NO 
1728 007750 104001 ERROR 1 , AN ERROR OCCURRED 
1728 007752 112714 000007 4$: MOVE —_- #BSFG!GO, wTACS ;BACK ONTO THE CLEAR LEADER 
1740 007756 104412 WALTREA Y ;G0 WAIT FOR "READY" 6 SET 
1741 007760 032714 100000 Bl #ERROR, JTACS "CHECK FOR AN ERR 
i748 907764 001001 BNE 5s ‘BR IF "ERROR" BIT IS SET 
1743 007766 10400) ERROR j “ERROR” BIT FAILED 1 TO SET 
1744 714 o20000 cS: BIT nia ,aTAcs iste FOR ct CLEAR LEAD ER 
1745 007774 001001 NE :;BR IF AR LEADE 
1746 607776 104091 ERROR “ERROR” WASN'T “DUE TO “CLEAR LEADER” 
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T (PART_2) MAINDEC-11-D2TAB-C MACYI1 27(732) 19-AUG-76 11:51 PAGE 38 5&6 COS! 
TEST BACK-SPACE-BLOCK-GAP INTO CLEAR LEADER 5&0 O05! 
«KEE EKAK REE REET FEEEE RRA EERE ERE EERE ER EEE EEE EAEEE RE RLERESE FS 
: Test 31 TEST BACK-SPACE-SLOCK-GAP INTO CLEAR LEADER 
Ty -- gaamilamamitsine 7 \ abeniantaplscitme ete tea 
cole 171156 HOV #10. ,STINES :3D0_10, ITERATIONS 
10104 171070 MOV §, $LPA ‘eel SCOPE LOOP ADDRESS 
1072 171144 MOY aretae, SESCAPE ESCAPE TO TEST 32 ON ERROR 
MOV ___ DRIVE, ATACS sSELECT DRIVE 
WAI TREADY AKE SURE READY IS SET 
000017 MOVE #REWIND!GO,JTACS +60 TO BEGINNING OF TAPE 
WAI TREADY [WAIT ON “READY” 
o00001 MOVE _4WFG!GO, aTACS ;GET_OFF OF CLEAR LEADER 
WAITR SWAIT FOR REA DY 
oo0003 MOVE _ WWRITE!GO,@TACS :START A WRITE 
WAI ;WAIT ON "XFER REG” 
000377 MOVE 4377, aTADB sHRITE ONE BYTE 
WAITXFER WAIT ON "XFER REQ” 
000377 MOVE #377, QTADB at £ 
WAI TXFER sHAIT ON “XFER REG” 
oo0020 BIS _—s#ILBS, aTACS ;WRITE “CRC” 
WAT "READY ‘WAIT ON “READY” 
o00001 nove aHFG!GO, aTACS sHRETE A “EILE GAP” 
000017 1$:  MOVB _ #REWIND!GO,aTACS ;BACK OVER THE DATA 
WAI” READY :WAiT ON “READY” 
000013 OVE uSFFG!GO,aTACS :D0 A SPACE FWD FILE GAP 
904009 BIT  sFGAP,aTACS ;1 FILE GAP=1? 
BNE 2S R IF 
ERROR I PIL NOT=1 
000011 2$: MOV3  #BSBG!GO,aTACS ;60 TO GPIRST FILE GAP_ON TAPE 
READY :GO WAIT FOR "READY TO SET 
124000 BIT | #ERROR!FGAP!LEADER,JTACS -DID WE GET ANY ERROR? 
BE 3$ ;BR IF_NO 
ERROR 1 SAN ERROR R OCCURRED 
000011 3$: MOVE — #BSBG!GO,aTACS :BSBG WHILE IN A FILE GAP 
WAI TREADY GO WAIT FOR “READY” TO SET 
TST —aTACS :"ERROR" BIT SHOULD BE SET 
BMI «4S ;BR IF IT IS 
ERROR 1 :"ERROR” BIT WASN’T SET 
p20000 4s: BIT LEADER, OTACS i"CLEAR LEADER” SHOULD BE SET 
BNE - TST3e ;;BR IF CLEAR LEADER" = 1 
-SCEEAR LEADER" NOT 


1 T 
ALLL 
$LELILOLU ELLA LIAL LL LIAL LL tw Oe URI TING ONTO AND READ FROM 

OLLOWI TS INSURE THAT DATA CAN BE WRITING ONTO AND READ FROM THE TAPE 
Ne LUULLTULILUIILLIELELLLILILILLLLLLLLIUILLLLLLLELLLLLIL ILE 
‘ jE TLD RE a BO 
‘ATE 32 TEST ™ 377 377 8 O 
OS oe GAH EEE HHHHI HTH E HEHE HHH HEHEHE HEH HHA HGHEG HEHEHE 


732: SCOPE 

000012 170764 MOV #10. STINES 3300 10. ITERATIONS 

010230 170676 MOV #33. $LPADR ::SET SCOPE LOOP ADDRESS 
010330 170752 HOV s7etaa. SESCAPE +;;ESCAPE TO TEST 3 ON ERROR 
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MOV DRIVE, JTACS s SELECT RIVE 

MOVB —_ RREWIND!GO, aTACS G0 TO “CLEAR LEADER” 
WAI TREADY ‘WRIT ON "READY" 
MOVB  &WRITE!GO,aTACS ‘WRITE DATA 

WAITXFER ‘WAIT ON “XFER REQ" 
MOVB #377, aTADB 1ST BYTE 
WAITXFER :WAIT ON "XFER REQ” 
MOVB  #0,aTADB : T 
WAITXFER ;WAIT ON “XFER REQ” 
BI #IL8S,aTACS HRT e CRC” 
WAI TREADY WAIT ON "READY" 
MOVB #BSBG!GO,aTACS ‘BACK OVER THE DATA 
WAITREADY :WAIT CN “READY” 
MOYB  #READ!GO,aTACS ‘START A “READ” 
WAIT WAIT ON “XFER REQ" 
MOV aTADB,R1 :PUT T4IS BYTE IN RI 
MO #277, RO :PUT WAT IT SHOULD BE IN 80 
CMP R1,RO DID DATA READ GOOD? , 
BEQ 1$ :BR IF YES 
ERROR §& DATA WIASN’T = 377 
WAITXFER ‘WAIT CN “XPER’ 
CLR RO 
MOV aTADS,R1 ; READ 
BEQ es :BR IF DATA = O00 
RROR 5 ‘DATA WASN’T = COO 

IS 8ILBS, aTACS SHUT DOWN 
WAT TREADY WAIT ON “READY 


4 . 

+ JOBE HEHEHE HEHEHE HERI 
ST 33 TEST “WRITE & READ” A COUNT PAT’ERN 

LEEKS EEE EKER EK EERE BEEK EAE REEL ER EA EA EERE REED ERAEEREE EEE REREAD 


#10. ,STIMES ;;00_10. ITERATIONS 


MOV $1 PADR ::SET SCOPE LOOF AODRESS 


83% 
MOV uTSt34,SESCAPE :;ESCAPE TO TEST 34 ON ERROR 


CL 
MOV DRIVE, aTACS SELECT RIVE 
MO #REWIND!GO, aTACS :GO TO “iB0T™ 
WAI TREADY ‘WAIT ON "READY" TO SET 
MOVB  &WFG!GO,aTACS GET ON OXIDE 
WAITREADY WAIT ON "READY" TO SET 
MOV #377,R0 ‘FIRST DPTA PATTERN AND CCUNTER 
MOVB —_ #WRITE!GO,aTACS ‘START A WRITE 
WAI TXFE tWAIT ON “XFER REQ” TO SET 
MOV RO, TADS WRITE A SYTE ON T 
Wal WAIT ON "XFER REQ” TO SET 
MOV JTADB,R1 ?GET BACK THE LAST BYTE WRITTEN 
CMP RO,R1 : AND CHECK I 

EQ 2 :BR IF IT LOOKS GO 
ERROR : : THE DATA IN TADE WAS BAD 

C 0 *NEXT PATT 

BGE 1$ :BR IF MORE TO DO 
81S _&ILBS,aTACS SWRITE THE “CRC" 
Wal iRE WAIT ON "READY" TO SET 
qs! arAcs sANY ERRORS OCCUR? 


3$ :B 
ERROR 1 ‘ERROR OCCURRED DURING WRITE 
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L-D2TAB-C S£3 2052 
in" 8 COUNT PATTERN Se6 2053 
28: Move BSE6'G0, JTACS ;50 10 BEGINNING oF BL.9¢ 

WAI TREACY SWAIT ON “READY” TO SET 
MOVE a@READIGO, aTACS “START A “READ” 
MOY 9377,R0 :FIRST DATA PATTERN BNC COUNTER 
“3; WAITXFER WAlT oN “YFER REQ" TO SET 
MOV STADE, RE REA oA gyre FROM Tape 
CMP RO,P! : VALID? 
BEO 3 :BR iu YES 
a: ERROR = § : BAD ora READ FROM THPE 
53: EC RO “NEXT PATTERN 
BGE 4g -88 IF MORE TO READ 
WAITXFER ;WAIT ON "XFER REG" TC SET 
gIs SILES, aTACS :SHUT DOWN THE =FEAD” OPERATION 
WAI TRE ‘WAIT ON “READY E 
QIT SERFORICRCERR, aTAcs "ERROR AND cRFERR. ait BE = 
BE9 TST34 ::6R IF THEY ARE 
ERROR : (ERROR ! CRCERR) 


SLLLLALA TITEL ILE LLI EL UEELIA YT TE YY 

AMAAALE AAA A A 
; THE FOLLOWING TESTS ARE USED TO INSURE THAT THE "CRC" CIRCUITRY FUNCTIONS PROPES_Y 
CPEITEEALEDTETMAAAOTTTALAAAALTATADATTATTAAATA AAS DATAAAS AE TAA LAA DEES 

1 RRRER EOE ESE OR AEESAE REERL REE RERERESEESOEREERERS EEE SEARS EES ESESS 

;#TEST 34 TEST “ERROR” WITH “CRCERR” = 1 

Twa “2 iam ecape age ees peau matic sree seat 


$8734: E 
MO 810. ,STIMES ;;00 10. ITERATIONS 
MOV #203 ' SLPADR :SET SCOPE LOOP ADDRESS 
MOV ‘ 8TS735, SESCAPE : BS cape TO TEST 35 ON ERROR 


RESE 

MOV DRIVE, aJTACS ;SELECT DRIVE 

MOVE are! GO, 3TACS 360 TO CLEAR LEADER 
WAIT: T ON “RE 


MOVE tuFG!GO, aTAcs GET OFF vray LEADER 


WAI TREADY SALT FOR B 
208:  MOVB SWRITE!GO,aTACS :START A WRITE 
MOV #6, RO SETUP FoR 6 BYTES 
1s WAITXFER WALT’ QN “XFER REG” 
Dec =O : DOWN COUN 
BLT 2 ’ 
MOVB #377, aTADS INO--WRITE CN TAPE 
aR 1 ;LOOP 
2s 815 _ BILBS,aTACS suIRITE “CRC 
WAITREADY WAIT ON "READY" 
MOVE #BSBG!GO, aTACS : BACK QVER THE DATA BLOCK 
WAITREADY __ SWAIT CN "READY" 
NOVB  #READ!GO,aTACS :STAR ART. “READ” 
MOV #3, RO :D0.2 BYTES 
38 WAITXFER tWAIT FOR “XFER REQ” 
Dee :COUNT ® OF BYTES 
L 


4§ 
i376 aTAOB ;CLEAR “XFER REQ" 


4§: BIS SILBS,ITACS ;D0 _“ ie 
WAI TREADY SWAIT ON “READY 
TST aTAcs ;CHECK FOR “ERROR” 
S$ :BR IF "ERROR" 
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FART 2) MAINDEC-11-0277AB-¢ MACYLL 27(722) 19-AUG-7E 11:53 PAGE 41 
TEST “ERROR” WITH “CRCERR™ = 1 
r ERROR “ERGOR" BIT NOT SET 
049000 3 B17 ACRCERR, TASS CHECK FOR “CRC” ERROR 
SNE bs "OR IF “CRC” FERC OF 
ERROR 1 NO “ORC” ERROR 
otis sTHE FOLLOWING CODE 1S USED TO CHECK THE "ROM i 
poonee és: OVE = aS. STACS “CHECK “ERROR” WITH “WFG" 
Tet aTac’ :SAMPLE THE “ERROR” BIT 
BP 7$ -BR IF "ERROR" = 9 
Beef lad ERROR | : "ERROR" NOT = 0 
o02002 7S: MOVE = AWRITE,OTACS CHECK “ERROR” WITH “WRITE” 
1st JTACS :SAMPLE THE “ERROR” BIT 
MI 8 :BR IF "ERROR" = 1 
A ERROR . “ERROR” NOT = 
aajeieie S$: MOVE  @BSFG,aTACS ‘CHECK “ERROR” WITH “ESFG" 
TST aTAC :SGMPLE THE “ERROR” BIT 
BPL og ‘BR IF “ERROR” = 
Pn p ERROR 1 S ;"ERROR™ NOT = 
pooo12 S$: MOVE  #8S86,aTACS :CHECK “ERROR” WITH “SSEG" 
TST aTAcs :SAMPLE THE “ERROR” SIT 
BFL 10$ iBR IF “ERROR™ = 
ERROR "ERROR" NOT = 0 
oco012 10$: MOVB sSFFG,aTACS s CHECK “ERROR” WITH “SFFG" 
TST aTacs ;SAMPLE THE “ERROR” SIT 
PL 11 ‘BR IF “ERSOR™ = 0 
ERROR 1! :"ERROR" NOT = 0 
000014 118: MOVE  sSF8G,aTACS :CHECK “ERROR” WITH “SFEG” 
TST aTACS ‘SAMPLE THE “ERROR” SIT 
BPL 12 :BR IF “ERROR™ = 0 
ERROR :"ERROR” NOT = 0 
poco1& 123:  MOVB = SREWIND,a@TACS :CHECK "ERROR" arth “REWIND” 
TST aTACcs SAMPLE THE “ERROR™ 817 
BPL TST3s 3388 IF *ERROR™ = 0 
ERROR 1 “ERROR” NOT = 9 
+ SSELELESERSESELEFSESAELESH* sesaununananebennnnepesesuncaneseseses 
TEST 735 TEST “DATA OF O GIVES CRC OF 0” 
jsssetsnecsuannessonsennorensesenesesnsusansncnannnnneunsennens 
: S 
pocc0s 170169 MOV aS, STIMES 3320, S ITERATIONS 
011934 170072 MOV 8&$. SLPADR ::SET SCOPE LOOP ADDRESS 
O1i160 170146 Moy : sTST36,SESCAPE ::ESCAPE TO TEST 36 ON ERROR 
MOV DRIVE, aTACS ;SELECT DRIVE 
000017 MOVE —_ SREWIND!GO, aTACS ;G0 TO “CLEAR LEADER™ 
WAITREADY * WAIT ON READY™ 
000203 o$: MOVB _ SWRITE!GO,aTACS sWRETE HE DATA 
WAIT ON “XFER REQ” 
CLRB ——aTADB 1ST BYTE = 0 
WAITXFER WAIT ON “XFER REQ” 
CLRE —s@TADB :2ND BY 
WAITXFER WAIT ON “XFER REQ” 
pocc20 BIS #ILBS,aTACS ‘WRITE "CRC" 
WAIT’ Y ;WAIT nt 9 
900011 MOVB  sBSBG!GO, aTACS ‘BACK OVER THE DATA 
ITREADY shAtT ON “READY™ 
cocos MOVE BREAD!GO, 3TACS ;START A “READ" 
WAITXFER *WAIT ON "XFER REQ" FIRST 
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| Tarr BaSIc LOGIC TES? .PART_2) MAINOES-11-D2TAB-C MACYLL 2T(732) L9-AUG-7— 11:5: PAGE 42 s£5 cose 
| p2TaaC. NEW T3 TEST “DATA OF O GIVES CRC OF Oo” c£4 7255 

1873 0122074 908000 CLR 89 “SET RO TO WHAT THE DATS SHOULD 3E 

1973 O1:07& 01:50 MOV DTACB RL “READ DATA BYTE 

1973 911100 0140) geo i$ ‘BR IF DATA = 9 

1974 911102 104005 ERROR =O -1ST BYTE NOT = 0 

1875 931104 104413 1s WALTXFES WAIT ON “XFER REO" 

1675 611105 031501 MOV STAG, 8: READ SECOND DATA BYTE 

2877 913219 90240: BED 2g ‘82 IF 2ND BYTE = 6 

78 Oll112 104005 ERAC?. CS -CATA WASN’T = 0 

i873 O1LL14 10441 3 WAITAFER “WAIT ON "“XFER REG" 

1989 Ollti6 92156: MOV 37AD8 AL -READ FIRST CRC BYTE 

198: 912120 001401 3E3 33 :SR IF 1ST CRC BYTE = 

1882 Olilee 104005 x ERROR OS :1S7 BYTE OF CRC BAD 

1S83 011124 194413 33 WAITXFES “AIT ON “XFER REQ” 

1884 Ollie 01:89: MOV 2TADE, RL READ CONS CRC BYTE 

1885 911130 90140: REQ <3 -BR IF OND URC BYTE = 0 

2986 11132 '940CS FRROR OS i :2ND BYTE oF ERC BAD 

1987 O11134 OSe714 o000E2 “3: BIS BIL8S,a7acs 

1982 O11149 id44le WAT TREADY :WAIT FOR “READY” 

1389 911142 715 TST aTacs iE BROR™ SHOULD BE = 1 

1989 SLl144 190401 BMI c$ :BR IF “ERROR” IS = 1 

199: O11196 104001 FRROR =! 

i$$2 811150 832714 040000 =f: SIT ACRCERR, JTACS THE ERROR A “CRC” ERROR? 

1963 911188 91001 BNE T5136 3360 TO fei TEST IF YES 

1965 O11iS— if4oc1 ERROR 1 -THE ERROR WASN’T A “CRC” ERROR 

19s 1 PPRERRRRAERERERESEAEEEA EERE EER SRESESERAE EEE EEE EEEEL EER REE EES TE 

r3s¢ ETEST 36 TEST “CRO” CIRCUIT USING A COUNT PATTERN 

i3s7 i «LR ERESEEEEEE EE SE EEEEEEEREEEEE EEE ERREREE ESE EERE EES LESSEE ERE SES 

1958 011160 oo0004 thr35. SCOPE 

ie63 Siligse Ole767 200012 167776 MOV STIMES 300 10. ITERATIONS 

2069 511170 Oieve7 Sile7e 167716 MOV a8 43) PADR :SET SCOPE LOOP AQDRESS 

200; 011176 O1e767 Ollie 167764 MOY #75137, SESCAPE SI ESCAPE T 0 TEST 37 ON ERROR 

2°02 911204 0000 RESET sCL fe ALL 

2905 Silede 010314 MOV oe ;SELECT DRIVE 

2004 011210 112734 000017 MOVB BREUIND! GO aTACS :80 TO “BOT” 

2005 Ollei¥ 104412 WAITREADY WAIT ON "READY" TO SET 

= O1lelé 1le714 000001 MOVE —- aWFG!GO,aTACS GET ON OXIDE 

2007 Olizee 104412 WAITREADY WAIT ON “READY” TO S 

2098 Ollee4 012700 900377 MOV #377, R0 sEIRST DATA PATTERN Bi COUNTER 

2009 Olle3s0 1le714 OCC302 MOVB aWRITE'GO,aTACS :STAR A WR 

2019 Silem# 104433 Wa Bart ON XFER REQ" TO SET 

201! O11236 910015 18: MOV RO, 2TADB :WRITE A BYTE ON TAPE 

edie 011240 104413 WAITXFER :WAIT ON “XFER REG" TO SET 

20is Olle¥2 011501 MOV 2TADB,R1 ;GET BACK THE LAST BYTE WRITTEN 

2514 O1le44 C2000! Ri N HECK Ri 

2015 Slie#e 001401 BES 23 :BR IF IT LOOKS GOOD 

2016 Olle50 104005 ERROR 5 THE DAT A IN TADB WAS BAD 

2017 SileSe2 005300 23: DEC RO :NEXT PATTERN 

20:8 O11e54 002370 oGE 1$ :BR I~ MORE TO DO 

2019 O11256 OSe714 900020 815 sIL8S,aTACS : “CRC” 

2020 Olicbe id4#le WAITREADY WAIT ON se 3° SET 

25ei Olle64 005714 TST aTacs ANY ERRORS 0 

2c2e Oii266 100001 PL 3g :BR IF NO 

2023 6011270 10400: ERROR 1 Fea Romney ane 827 

2024 Olie72 112714 000011 38: MOVS  eB8SBG!G0,aTCS :BACK OVER THE DATA BLOCK 

252s 4611276 «1o44le WAT TREADY * WAIT oN “READY” TO SET 

e026 911200 12714 occccos MOVE  wREADIGO,aTACS ISTART A "READ" 
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| TALL BASIC LOGIC TEST LFART 2) MAINDEC-11-D2TAE-¢ MACYLL 27.722) 19-RUG-76 11:51 PAGE 42 $9 00S 
| O2TABC. NEW 736 TEST “ORC’ CIRCUIT USING A COUNT PATTERN SE. 0S 
| poe? O13304 Oe700 902377 MuV £37780 sEIRST DATA PATTERN ANC COUNTER 
| 6028 O11310 0050s? fi3tr4 CLR eoRO WO SINITIALIZES THE “CRC WO 
| BO2S O113149 OON737 O15654 4: IS8 PC, dado. CRC :COMBINE THIS BYTE teat “WITH THE “2RO WORD" 
t+ =©g030 011320 104412 Wh> TXFER ‘WAIT ON “XFER REG" TO SET 
2032 Oll2c2 911591 MoV aTADS, 81 ;READ_A BYTE FROM TAPE 
2032 O11se4 920001 CMP RO.RL 31S IT v 
2033 911326 90149: 8E9 5s BR IF YES 
2034 011330 104005 ERROR § ;BAD DATA READ FROM TAPE 
2035 O1ig3e 005300 of bec RO NEXT _PATTES! 
2c3$ O113 902367 8GE 43 GR_IF MORE TO READ 
eos? 011336 905500 re cur ee :GET LOW BYTE OF “CRC WORD" 
238 011340 153700 013774 BIS8 —-aCRC. WE, RO 
2035 O11344 194413 y WAITXFER sWAIT ON “XPER REG" TO SET 
2040 C1146 952714 000020 315 SIL8S,aTACS ;SHUT DOWN THE “READ” OPERATION 
2041 911352 G1i501 MOV aTAGB, RL PPick FIRST BYTE OF TUBd “CRC” 
ec4e 011354 920001 CMP RO, R1 :1§ IT GO00? 
2042 011356 001401 BEQ b$ :BR IF YES 
2044 911360 104005 ERROR 5 FIRST BYTE OF TUEG “CRC” IS SAD 
2045 O1l362 095000 6: CLR RO :GET HIGH BYTE oF “CRC WORD” 
2046 911364 153700 013775 SISB —sQBCRC.WD+1, FO 
2047 011370 104412 WAI TREADY ;WAIT ON "READY" TO SET 
2048 O1l372 01150! MOV aTADE,R! ;READ_THE 2ND BYTE OF tues “CRC” 
2049 611374 020001 OMP RO,R1 315 IT GOOD? 
2050 O11376 001401 EQ 7$ ;BR IF YES 
20si 011409 194005 ERROR 5 HIGH BYTE OF “CRC” IS SAD 
2052 011402 032714 140000 7: BIT BERROR! CRCERR, J"ACS jERROR AND CRCERR SHOULD BE 
2053 011496 901421 BEQ TST37 35K IF THEY ARE 
2054 O1isid 104001 ERROR 1 (ERROR ! CRCERR) = 1 
205s rio irre 
eccé THIS TEST REQUIRES BOTH DRIVES . 
2057 FOR THE FOLLOWING DESCRIPTION DRIVE “1” IS THE ORIVE UNDER TEST 
z-38 ;AND DRIVE “2" IS THE OTHER DRIVE 
2060 TEST DESCRIPTION 
2061 i) REWIND DRIVE 1 
20S 12) WAIT FOR READ 
2083 +3) START DRIVE 2 REWINDING 
204 2) WAIT FOR READY TO CLEAR 
2065 :5) SELECT DRIVE 1 AND CHECK THAT READY IS STILL SET 
sree 36) SELECT DRIVE 2 AND CHECK THAT READY IS STILL CLEAR 
¢ ' 
5-1 fp FRELERELEERAE LE LEELELA LR ERE RE RAEE KLAR ELA RARERERLELEL ALE LALA TREE 
205 ; AEST 37 TRY TO HANG “READY” ON “REWIND” 
2070 Fla +++ eaten 
2071 O1l412 o00004 5737: SCOPE 
2972 O11414 012767 oCo00s 167544 MOV 8S STIMES ;;00_5 ITERATIONS 
2073 Ollw¥e2 Ole767 O1143& 1674s¢ MOV ait. SLPADR ;;SET SCOPE LOOP ADDRESS 
2074 O1143C Ole7b7 O11552 167532 MOV eTST4O,SESCAPE ;;ESCAPE TO TEST 40 ON ERROR 
2075 011436 105727 O01225 18: TSTB = ABDRVKEY+1 TESTING TWO DRIVES? 
2076 Oll44e 001443 BEC TST4O 5 ;BR IF AO 
2577 biiass 912701 o00001 MOV #1,Ri ;SET TIMER 
eo7e8 Oli4so 010302 MOY ORE VE ,Re SET R2 TO THE OTHER DRIVE 
2078 O11452 O&e702 900409 ADD UNIT Re 
2980 O1i4S6 O4e702 177377 BIC stCUNtT. Re 
2061 O11462 909005 RESET ;CLEAR ALL 
2062 O11464 010214 MOV DRIVE, aTACS SELECT ist DRIVE 
' 
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LOGIC _TEST (FART 2) MAINDEC-11-D2TAG- MACYL1 27(722) L9-AUG-76 11:51 PAGE 44 664 90¢7 
137 TRY TO HANS “REASY" ON SREWINO® S26 0067 
LO4412 HI TRERDY “WAIT ON “READY” 

O1d214 MOV aTacs SELECT eno DR ye 
14412 WAITRE i WAIT ON “READ? 
Lle7is 900017 MOVE ‘eeuteeven Bac’ END 2ND DRIVE TO ZT 
506391 23: ASL PR! “GIVE "READY" TIME 70 CLEAR 
601901 SNE 3 
18408: ERROR ;"READY" FAILED TO CLEAR 
“NOTE: THIS ERROR OCCURRED ON THE 
:2ND DRIVE. I.£. IF TESTING OFIVE & 
oat : ‘THEN DRIVE 8 F RILEC 
932714 occoo4s 33 317 #READY, ITACS :WAIT FOR “READY” TO CLEAR 
901372 SNE 25 
010314 MOY OR? acs ; SELECT 1ST DRIVE 
112714 o000i& MOVB BREAD, oF ACS ?LO€D A “REWIND” 
032714 909049 SIT y aTACE : CHECK “pERge 
907901 i !8R IF STILL SET 
104901 ERROR D "READY" WAS CLEAR 
010214 4$: MOV Acs -SELECT 2ND DRIVE 
12714 OOCOIE MOVB aREWING, BTACS £O80 A REWIND 
N35714 655040 BIT BREADY .aTACS : CHECK 
502481 BEG 5s eR IF STILL “LEAR 
10400! ERROR “READY” WAS S 
1n4412 SS: SATTREADY “WAIT ON HP apes 
jtiesnasenaesseastasnsexsssenascansseebasnaeoecaecaeneciensayts 
‘THIS TEST REQUIRES BOTH DRIVES. 3 
"FOR THE FOLLOWING DESCRIPTION DRIVE "1" IS THE DRIVE UNDER TES? 
:RNO DRIVE "2" IS THE OTHER DRIVE 
: ; TEST DESCRIPTION 
-1) REWIND DRIVE 1 
+) WEG ON DRIVE 1 
:3) START A REWIND ON DRIVE 2 
+4) WHILE DRIVE 2 IS REWINDING WRITE DATA ON CRIVE 1 
:5) CHECK FOR ERRORS 
6) START A REWIND ON DRIVE 2 
:?) WHILE DRIVE 2 IS REWINDING READ DATA FROM DRIVE 1 
38) CHECK FOR ERRORS 
: iret dD TRY TO GLITCH IME “POWER SUPPLY’ 
Be Y TO GLITCH THE “POWER SUPPLY” 
CaERUAEEAEAAEAEEEIAEREDSAISOAS OE ADHERED REAEEIARRESEEGHADESESES 
ooo004 +éT40: SCOPE wi 
Cie767 ocoosos 167404 MOV #5, STIMES ;D0_5 ITERATIONS 
012767 011576 le73i6 MOV #1¢ S$LPADR IISET SCOPE LOOP ADDRESS 
012767 Olei34 18737¢ MOV sTSTH1 SESCAPE ::ESCAPE 16 Test OT ON ERROR 
105737 Boi2ze 1: TSTB = DHORVKEY+1 TESTING TWO DRIVES? 
oo1ss4 BEG TST4] :;BR IF é 
012701 coco! MOV #1. R1 ;SET TIMER 
0103202 MOV ORIVE, Re ‘SET Re TO THE OTHER ORIVE 
062702 OCO400 ADD NIT. Ro 
042702 177377 BIC aTCUNtT. Re 
000005 RESET : CLEAR 
010214 MOY DRIVE, JTACS setter TST DRIVE 
112714 000017 MOV 3 SREWIND!GO, aTACS sREWIN D TO BOT 
ios412 WAI TREADY WAIT ON “READY” 
112714 coo0o1 MOVE  sWFG!GO,aTACS ‘GET ON OXIDE 
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35 :GIVE “READY” TIME TO CLEAR 


oO £70 £1 


:"REAOY" FAILED 10 
SNOTE: THIS ERROR 
2h ORIVE, I.E. 1 


2714 o00040 3: 


C 
< aes TACS :SELECT 1ST DRIVE 
112714 o0goccs SaTACS *WRITE WHILE THE OTHER DRIVE IS “REWINDING™ 
4 : N "XFER REQ" 


;WAIT O 
71§ 000377 : 


; “XFER RES" 
052714 o00020 BIS SILBS,a74¢5 ;WRITE “CRC” & SHUT DOWN 
104412 WAITREADY ;WAIT ON “READY 
005714 iat a ;ANY ERROR? 


: NO 
. ERROR 1 rae ERROR OCCURRED DURING “WRITE” 
lie7t% oo00)! 4$: MOVB SBSBG!'S0,2TACS sPOSITION TAPE FOR “READ” 


: TELL BASIC LOGIC TES? iPaRT 8) MAINDEC<-})1-D2TAB-C GOs 1o-.05-76 11:53 PAGE 45 6eg ones 
| DoTRaC. NEI T48 TRY 70 GUISCR THE wBSWER Suepiy™ a aie . | SE. S5E2 
| Bu: ig42 104918 WAITREADY. 2 i4BIT ON. “READY” 

i4 : iCe14 MOV Re, aTAcs ;SELECT END DRIVE 

41 WAITREADY © :WAIT_ON “READY” 

hi2g7i4 00001 MOVB BREWIND!GO,aTAcs ;STRRT A “REWIND” 

gee S060 a: 3 

104001 1 

104412 WAITREADY ;WAIT_ON “READY” 


732 905714 TST 3TACS :ANY ERROR? 
734 100001 QPL ss :BR IF NO 

726 10409) r ERROR 1 ‘ERROR OCCURRED DURING “8S26" 
740 112714 ooocos S$: MOVS _—- BREAD!GO, aTACS :START A “READ™ 

744 104413 WAITXFER :HAIT ON “XFER REQ" 

746 012700 900377 MOV 8377, RO FIRST DATA PATTERN 

752 O11S9! MOV aTAOR, RL :PICKUP FIST BYTE 

754 020091 CMP RO,R} :15 IT GOOD? 

756 O5140! :BR IF NO 

760 14005 ERROR § :1ST DATA BYTE IS BAD 

7&2 104413 ts: WAT TXFER *WAIT ON “XFER REQ” 

74 Oosc00 Cu RO :2ND DATA PATTERN 

766 911501 MOV JTADS.R1 ‘PICKUP 2ND BYTE 

770 001401 BEQ 7 :BR IF IT IS GOOD 

772 104005 ERROR 5 :2ND BYTE IS BA 

774 194413 7S: WAITXFER :WAIT ON “XFER REG” 

776 652714 oood20 BIS SILBS,aTACS : 

O02 idd4le WAI TREACY :WAIT ON "READY™ 

004 605714 TST aTACS ERROR? 

006 190001 BPL a BR IF NO 

19 104001 ERROR 1 ERROR OCCURRED 
le 112714 coco1 BS: MOVE  #BSBG!G0,aTACS !POSITION FOR NEXT "READ" 

O16 104412 WAITREROY !WAIT ON “READY™ 

020 714 TST aTACS ERROR? 
2022 100001 BPL og BR IF NO 

924 10900! ERROR | ‘ERROR OCCURRED DURING “BSEG 
O26 010214 9g: MOV Re, aTACS ‘SELECT OND DRIVE 

030 104412 WA a ;WAIT ON ™ i 

e532 112714 909017 MOVB #REWIND!GO,2TACS :START A “REWIND” 

636 012701 e8cCdd: MOV #1,R! SET THE TIMER 


Nine enna ae: 
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GLITCH THE “POWER SUPPLY” 
108: ING Ri .GIVE “READY” TIME TO CLEAR 
BNE ils 
ERROR 1 ““READY" FAILED TO CLEAR 
NOTE: THIS ERROR SOCURRED ON THE 
ele CAIVE. I.E. af STING DRIVE A 
EN ORIVE 8 FAILE 
1$: 8IT READY, TACS IWAIT FOR "READY" FF CLEAR 
BNE 103 
may DRIVE ,aTACS ;SELECT 1ST DRIVE 
WAITREADY ‘Walt ON “REACY’ 
Move “BREAD! GO, aTACs :"READ” WHILE OTHER ORIVE 15 “REWINOING™ 
wal TXFER uaIT ON “XFER REG" 
MOV #377, RO :1ST DATA PATTERN 
MOV aTADR, Ri -READ IST SYTE 
CMP RO, Al 1S IT G00 
SE le BR IF NO 
RROR = § 1ST vie 
128 WAITXFER “WAIT ON REQ" 
RO :2ND DATA PATTERN 
MOV SIADBS, Ri !READ OND BYT 
13$ :BR IF IT IS GOO 
ERROR 5 13ND BYTE FAILED 
138: WAITXFER ;WAIT ON “XFER REQ” 
BIS SiL@S,aTacs SHUT DOWN 
WAITREADY halt ON "READY" 
TST aTAcs : ERROR? 
BP TST4] -;8R IF NO 
ERROR | sERROR OCCURRED 
EEE E EAE RE FARAH ER EEE SEAR EEE EE ARE DEA AE ALES EERE AEARS EAR SEES ERASE 
tSTEST 4] END OF TEST CODE 
= SESSSEEELERES ESRF ELE SL FE FSP AEF SLE SASLESLARFSSEELFARELFESLESH LSE 
+4741: SCOPE 
Le7022 HOV ‘ #1, TIMES +300 1 ITERATION 
MOV DRIVE, aTACS sSELECT DRIVE 


MOVB aFEMIAO! GO, aTACS 
WAI TREADY 
.SETTL END OF PASS ROUTINE 


s RERAKERLAASE LAA RARE RFRA REALL SAE RELE RE RL ELA FSEFEFATERSFLEALELSE 
; FINCREMENT THE PASS NUMBER ($PASS) 
*TYPE “END PASS" 
SeIF THERES A MONITOR GO 10.17 
tIF THERE ISN’T JUMP TO STA : 
:#IF IT IS DESIRED TO HAVE a SHELL INDICATE THE “END OF PASS" LOCATION 
:#SENDOMG CAN BE CHANGED TO 


SEOP: 
SCOPE 
CLR $TSTNM ;;ZERO THE TEST NUMBER 
CLR STIMES tice THE NUMBER OF ITERATIONS 
INC $PASS ; INCREMENT Mg PASS NUMBER 
LEbe76 BIC #100000, $PASS : DON N’T “ALLOW A NEG. NUMBER 
ter (PC)+ tT OOP? 
SEOPCT: .WORD } 
BGT SDORGN »:YES 
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TREC. NEW SOOFE HANDLER ROUTINE 
53 .S8TTL SCOPE HANDLER ROUTINE 
ers ; i Dalek atte ht gh bth Sb tetas bi eh ib LEFFELELESF FEE FSS FE SAS EFSF 
eri S ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
ere sat “LOAD THE TEST NUMBER ($TSTNIt) INTO THE CISPLAY REG. (DISPLAY «7:0» 
273 AND LORD THE ERROR FLAG ($ERFLG) INTO DISPLAY<iS:08) 
274 i STHe SLITCH OPTIONS PROVIDED BY THis ROUTINE One: 
275 :*SW14=1 LOOP ON TEST 
2278 +SWll=] ThIetT ITERATIONS 
277 ;#5W09=1 LOOP ON ERRO 
eer :#5W08=! LOOP ON TEST IN SUR<7 
2279 2 #CALL 
e265 7% SCOPE ; ; SCOPE=IOT 
52 
cose Oleety SSCOPE: 
ee83 Oleze4¥ 104408 CKSWR ;TEST FOR CHANGE | IN s SOFT-SuiR 
2285 Ole266 O32777 o4O000 1S6e44 1S: BIT sBIT14, 2SWR : LO2s ON PRESENT 
2285 912274 O01111 SNE SOVER YES IF SW14=1 
2286 jeeaeeSTBRT OF CODE FOR THE XOR itsTERteate 
2287 012276 OOO4I6 $xTSTR: BR a) a RUNNING ON THE SXOR” TESTER CHANGE 
2288 THIS INSTRUCTION T (NOP=240) 
2289 012300 013746 000004 MOV DBERRVEC, - (SP) SAVE THE CONTENTS OF "THe ERROR VECTOR 
2290 012304 012737 012324 900004 MOV a5, JHERRVEC SET FOR TIMEOUT , 
2291 Olezie 005727 177060 TST 38197060 TIME OUT ON X 
2292 012316 012637 00009 MOV (SP) +, JHERRVEC s $RESTORE | THE ERROR VECTOR 
2293 012322 O00463 > ze $SVLA AD 3300 TO THE NEXT TEST 
2234 012324 Oe2e26 S$: CMP (SP)+ jCLEAR THE STACK AFTER A TIME OUT 
2295 012326 012637 COO04 MOV (SP}+, SHERRVEC i] RESTORE THE ERROR VECTOR 
22% 912332 000423 BR 7g Lb THE PRESENT TEST 
2297 O1e334 6$:;aeeee—ND OF CODE FOR THE XOR ‘fEereReass 
2298 012334 032777 oO00400 166576 BIT #B1TO8, JSWR ;;LOOP_ON SPEC. TEST? 
2299 O1e342 001404 BEQ 2$ 3 
2300 Oi2344 127767 166570 166530 CNPB) Os SWR, STSTNM :;0N THE RIGHT TEST? SWR<7:0) 
2301 Ole3S2 001462 ES SOVER :;BR IF Y 
2302 012354 105767 166523 23: TSTB © SERFLG :;HAS AN ERROR OCCURRED? 
2233 Qie360 O014e it BEQ 38 :} N : 
e204 Olesbe 126767 166527 166513 CMPB © SERMAX,SERFLG :;MAX. ERRORS FOR THIS TEST OCCURRED” 
305 012370 101015 BHI 3$ ;;BR IF NO 
305 012372 777 O01000 166540 BIT #BITO9, ISWR :;LOOP_ON ERROR? 
2307 012400 001404 BEQ 4 33 
302 O12402 O16767 166502 166476 7S: MOV $LPERR,SLPADR ;;SET LCOP ADDRESS TO LAST SCOPE 
2305 Ole4i0 o00443 BR SOVER 
310 Ole4ie 105067 166465 4S: CLRE © SERFLG ;;ZERO_THE ERROR FLAG 
211 Ole416 005067 ites44 CLR STIMES :3CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3i2 Olese2 000415 ; BR l € TO THE NEXT TEST 
313 Ol24e4 032777 CO4O0D 166506 35: BIT #BIT11,9°WR t INHIBIT ITERATIONS? 
214 012432 001011 BNE \ YES 
215 012434 005767 166440 TST SPASS 3 IF FIRST Pass OF PROGRAM 
316 O12440 001406 BEQ 1$ INHIB ITERATIONS 
Zi? Olew4e 005267 166436 INC SICNT Hi ENCRENENT ITERATION 
218 Ole446 026767 166514 165430 CMP STIMES, SICNT ;CHECK TH HEN UMBER OF ITERATIONS MADE 
219 O1e4s4 002021 BGE $0v ER ;;BR IF MORE ITERATION REQUIRED 
220 Ole45e 012767 CO000i 166420 15: MOV 1, $ICNT  PEINT TAL TZE "t ITERATION COUNTER 
ei Ole¥64 016767 SO0O44 1EE474 MOV SMKeNT, STIMES 3;SET NUNBER OF I ERATIONS TO DO 
322 Ole472 105267 166404 SSVLAD: INCB  $TSTNM’ :;COUNT TEST 
323 O1247E Cl1lbE7 166404 MOV (SP), SLPADR :;SAVE SCOPE LOOP RBORESS 
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Mov (SP), SLPERR ; SAVE ERROR LOOP ADDRESS 
CLR SESCAPE ::CLEAR THE ESCGPE FROM ERROR GCORESS 
7 MOVB #1, SERMGX SHONLY ALLOW ONE(1) ERROR ON NEAT TEST 
18 SOVER: MOV STBTM.SEISPLAY ;:DISELAY TEST NUNGER 
MOV ELPADR, (SP) : EUDGE RETR! 1 ADDRESS 
SMXCNT: 2000. Lhdke NUMGER OF ITERATIONS 
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} 


.SBTTL ERROR HANDLER ROUTINE 


5s EEK RE ERE EE EE ERE EERE EEE EEE RAISE EERIE IRE EEE SREB IEEE EF 
TETHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
Be Rey ITEM Yee AND THE ADDRESS OF THE ERROR CALL 
geTHE SUTTCH cPTLGNS "PROVIDED BY THIS ROUTINE GRE: 


: ¥Si1 T ON 
:$5W13=1 iNaley ERROR TYPEOUTS 
:*SW10=1 BELL 
s #SW03=1 BOR ON EFROR 
2s | 
:% ERROR N :;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSUR :;TEST FOR CHANGE IN SOFT-SUWR 
MOV BTACS, IRSREGO ;SAVE THE STATUS REG. 
MOV JTADB, a’SREGL SAVE THE DATA BUFFER 
MOV RO, d#$GDDAT sRO WILL CONTAIN THE GOOD DATA 
MOV Ri ea bat WILL CONTAIN THE BAD DATA 
7$: INC SERFLS :3SET Tie ERROR FLAG 
BEQ 7 'T LET THE FLAG GO TO ZERO 
MOV STSTNM, aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
SIT #BIT10,aSWR i 5BEL L ON ERROR? 
BEQ 1$ 33NO - 
TYPE SBELL *RING BELL 
18: INC SERTTL coun THE NUMBER OF ERRORS 
MOV (SP), SERRPC ‘GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVS  aSERRPC,$SITEMB ;;STRIP AND. SAVE. THE ERROR ITEM CODE 
BIT #81713, YSWR teKTP TYPEO SET 
BNE 20$ $i KIP TY YPEQUT ig 
ISR PC. TYPERR G0 TO USER ERROR ROUTINE 
see TYPE  ,SCRLF 
23: TST aSiR ::HALT ON ERROR 
BPL 33 ::SKIP IF CONTINUE 
T : HAL ERROR! 
CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
38: BIT #81703, 05KR $3LOOP_ON ERROR SWITCH SET? 
s° 
MOV SLPERR, (SP) !iFUDGE RETURN FOR LOOPING 
4S: TST SESCAPE ;;CHECK FOR AN ESCAPE ADDRESS 
BEQ o$ ::BR IF NONE mn 
va MOY SESCAPE, (SP) ::FUDGE RETURN ADDRESS FOR ESCAPE 
CMP #SENDAD, 842 s3ACT <i AUTO-ACCEPT? 
BNE 6 ; | BRAN H IF NO 
6$: 
RTI ; ;RETURN 
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EW ERROR TYPEOUT ROUTINE 


Bae MOS 
i 


2383 j REREAERLERPRELERELALARRARERARAARLEARERALARE RAE AR AALS AERA R LEE E ES 
e364 urs ROUTINE WILL TYPEOQUT THE ERROR MESSAGES 
2388 012730 10440: 001177 hci TYPE SCRLF -TYPE A CARRIAGE RETURN & LINE FEED 
2387 912734 O10046 MOV 0. -(SP) “SAVE RO 
| $388 018735 113700 o01114 MOVB axSITEMS,RoO :PICKUP THE ITEM INDEX 
| 2389 Ole74e 905300 DEC RG ;ADJUST THE INDEX 
| 2390 012744 006300 ASL RO -€O IT WILL WORK FOR 
2391 Ole74s 006300 ASL RO ‘THE ERROR TABLE 
2392 Ole7sC 906300 asl RO 
e393 Ole7S2 062700 001236 ADD #SERRTB, RO :FORM THE TABLE POINTER 
2394 012756 012087 o00002 MOV (RO)+, 1¢ sP1CK UP “ERROR MESSAGE” POINTER 
2395 Ole7vée 104401 TYPE “TYPE “ERROR MESSAGE” 
2236 Ole764 oo0c00 1$: 0 "ERROR MESSAGE POINTER” GOES HERE 
2397 Ol2766 104401 001177 TYPE  ,SCRLF 
2398 Ole772 912067 o00004 MOV (RO)+, 2$ ;PICKUP “DATA HEADER” POINTER 
| §=©2399 012776 001404 BEQ 3$ il . ON’ T TYPE 
| e400 013000 104401 TYPE : TYPE “DATA HEADER 
2491 013002 o00000 23: 0 :"DATA HEADER” POINTER GOES HERE -. 
2402 013004 104401 001177 TYPE SCRLF 
2403 012010 012000 23: MOV tRO)+,RO :PICKUP “DATA POINTER" 
2404 013012 O01004 BNE c$ IF THERE IS DATA TO TYPE GO DO IT 
| e405 013014 O12600 4g: MOY (SP)+,R0 RESTOR 
' P4068 012016 104401 091177 TYPE SCRLF ; TYPE A CARRAGE RETURNSLINE FEED 
| e407 013022 000207 RTS PC * RETURN 
; e408 013024 cs: 
| e403 013024 913046 MOV 3(RO)+,-(SP) FAVE a(R0)+ FOR TYPEOUT 
e411 013026 104492 TYPOC *:G0 TYPE--OCTAL ASCII‘ALL DIGITS) 
| e412 913030 005710 TST (RO) ; TERMINATOR? 
| p413 013032 001770 BEG 4 :BR IF YES 
' e414 913034 104401 oO1204e TYPE 6 -TYPE 2 SPACES 
| 2415 013040 000771 - BR &$ iL 
2416 O13042 920049 oc bE: SASCIZ / / “ASCII STRING OF 2 SPACES 
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ON THE READY BIT TO SET 


© SHELL EEAAKS RE KF FRELLRAL LEELA LF L KLE SELF LSE FFE FRESE EFARSFA FFF FASE 
ROUTINE TG WAIT ON THE READY BIT 


WAIT. ON. READY: 


T ¢ 
ROUTINE 





ooso67 ocoo44 CLR Werte ;SETUP MAX. TIME TO WAIT ON “READY” 
016767 000072 ocoD044 MOV NEXCNT HGHTIM 
912637 001202 MOV (SP)+ aHSAVPC :GET THE PC OF THE WAITREADY INSTRUCTION 
162737 O00002 oD1202 SUB aeSAvec 
012637 001204 MOV (EB) dRSAVPS ;SAVE THE PS 
032714 oo0dc40 WAITL: BIT apt ,aTACS SREADY=1? 
001013 BNE Warr 366 ON IF YES 
105714 TSTB. Ss TAC : CHECK TRANEPER REQUEST 
100002 SPL WaIT4 

04 ERROR 4 s"TRANSFER REQUEST” SET WHILE WAITING ON “READY 
000407 4 R Wart3 

27 WAIT4: INC (PC)+ :COUNT FAST COUNTER 
090000 WAIT2: 0 3 
001366 BNE WAIT1 350 CHECK "READY" AGAIN 
995327 DEC (PC )+ COUNT LOOP COUNTER 
oso000 HGHTIM: 9 
003363 BGT WAIT! :G0 LOOP AGAIN 
104002 ERROR 2 : READY” FAILED TO SET 
013746 o01204 WAIT3: MOV DHSAVPS, -(SP) “GET THE STATUS SACK 
013746 O01e92 MOV DRSPVPC; -(SP) :GET THE PC 
062716 oondd2 ADD #2,(SP)° 
oo90o2 RTI 
oeoco9 MAXCNT: O 


= LELLAE RELA FSF EFES SE LSS EK FE RE EFLFRFELE LES RAFFLE LEEK EFSEHEKFFLRKEFE 
: ROUTINE TO WAIT ON “RANSFER REQUEST 


WAIT. FOR. XFER. REQ: 


o0s0s7 oo0044 CLR 2s :SETUP WASTE TIME LOOP 
013767 013150 oo0044 MOV DRMAYCNT, 3% 
1627327 000092 ool202 SUB aaSAVPc 
012637 0O001204 MOV (e654, aeSAYPS ;SAVE THE PS 
105714 1S: TSTB ‘CHECK XFER REG 
100414 BMI as EXIT IF SET 
032714 900040 BIT Seapy.aTACS LOOK AT READY 
por4oe2 BEQ S$ R IF “READY” ISN'T SET 
104004 ERROR 4 -"READY" SET WHILE WAITING FOR “XFER REQ" 
0950407 BR oF 
005227 S$: INC (PC)+ ; COUNT 
oo00090 23: 0 
001366 BNE 1$ :BR IF MORE TO DO 
327 DEC (PC)+ 
000000 28: 9 
003363 BGT 1g 
104003 ERROR 3 :" TRANSFER REQUEST” FAILED TO SET 
013746 001204 WS: MOV DSAVPS, -(SP) GET THE STATUS BACK 
013746 oOle02 MOV a¥SAVEC, -(5P) :GET THE PC 
062716 co0nce ADD #2, (SP) 


012637 001202 MOV gy aeSAVPC ;GET THE PC OF THE WAITXFER INSTRUCTION 
000002 RTI ;GO BACK | 
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DITSBS NEW ROUTINE TD WAIT ON TRANSFER SEOUEST 
evr SE SREFSSRERESELS SERRE SELES FASS FSS ES SLES ES SI FEELFFEE SEL ESELIFFFSSS 
2475 JSETTL ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S, TC TEST 
2475 
237s s CALL 
2477 qs PC, deAsKOR 
£378 : RETURN :NOTE: PO AND 81 ARE DESTROYED 
e480 013254 104801 O1gT44 SEnDRV: TYPE MSGDRV s(CRLF"DRIVE(S)7 
2481 O13260 OCScs? LESTHO CLR bRynEy 
ENEE 013254 104410 ROLIN 60 GET A DRIVE 
£483 913268 012690 MOV (SP)+,RC :SETUP TO CHECK FOR VALIO OBIVE(S) 
2484 013270 105710 TST ak :HAS A DRIVE SELECTED? 
e485 Olse7e 901425 7, REQ NOTLGL 82 IF NO 
e486 Cise7§ Cie70) Obize4 a MOV #DRVKEY, Ri 
e487 013300 lee710 00919: LOOP: CMPB 8A ORO ;WAS DRIVE “A SELECTED? 
2488 013304 901002 BNE NOT ; N 
2483 013306 112021 MOVE  (RO)+, (RL)+ :SET KEY FOR DRIVE “A” 
2480 013310 000411 s -R NEXT 
2481 O135le 122710 cco102 NOTA: CMPB 8'B aRO ;WAS DRIVE "B" SELECTED? 
2482 013316 001002 BNE NOT : 
2483 013320 112021 MOVE (RO), (RL)¢ :SET KEY FOR DRIVE “8” 
2494 013322 O00404 5 BR NEXT’ 
2495 013324 122710 oss NOTE: CMPB 8544, GRO ;WAS A COMMA TYPED? 
Ends 013330 001006 BNE NOTLGL *BR IF_NO 
2487 913352 105720 TSTB = (RD + DUMP THE COMMA 
2498 013334 105710 NEXT: TST aR0 : TERMINATOR? 
2499 013336 OO140 . BEG EXIT BR IF YES _ 
2500 913340 022701 001226 CME SDRVKEY+2, 81 :TWO DRIVES SELECTED? 
250i O13344 101355 | BHI LOOP :9R 
2502 013346 104451 001176 NOTLGL: TYPE SQUES :ILLEGAL INPUT DETECTED 
2503 013352 000749 g8 ASKDRY :G0 TRY AGAIN 
2504 013354 005767 165644 EXIT: TST DRVKEY :ANY DRIVE SELECTED? 
2505 013360 901772 BEG NOTLGL :P2 IF NO 
e308 01332 000207 RT PC 
ae 
ra : jREREEREELELELRELREFE REL ESA LE LEE ERE LA LE RL LER ERE RELL ELE ELE LEREEE 
25c9 7 VALLE 7 
git :JSR PC, aB#ASKADR 
2512 012364 910046 RSKADR: MOV RJ, -( SP) ;SAVE RO 
2513 O13366 10440! 616760 18: TYPE =, 4SGASK -* TACs?" 
2514 013372 104411 ROOCT :GET VALUE 
2515 013374 012600 MOV (SP)+,R0 “PICK UP THE OCTAL NUMBER 
2516 013376 001423 BEQ 33 :IF “O" USE OLD VALUES 
2517 013400 020027 160000 CMP RO, #160000 ;MAKE SURE IT IS A BUS ADDRESS 
2516 O13404 103770 BLO 1$ 
2519 013406 010037 001206 MOV RO, aeTSCSL ;SAVE TCE TACS 7 
e520 Olz4l2 62700 000002 ADD #2, :STEP TO TADB ADDRESS 
252: O12416 010037 Odlele MOV RO: J8TADBL A VE IT 
eee Ol24ee 013737 O0!206 ool210 MOV § @aTACSL,aBTACSH ;SETUP TACS UPPER 
gees 013430 005237 001210 INC deTACSH ;BYTE POINTER 
2525 012424 013737 O01212 cOle14 MOV JSTADBL, J#TROEY :SETUP TADB UPPER 
2526 Ole4e2 005237 001214 INC as TAOBH :BYTE POINTER 
ese7 CloH4e §=10440) 016770 3S: TYPE  ,MSGVEC “VECTOR?” 





TALL BASIC LOGIC TEST (PART 2) MAINDEC-i1-D2TAB-¢ MACYL] 271722) $S-OUG-75 11:55 PAGE S4¥ 
OrTABC. NEW ROUTINE 70 INPUT CSR. 58R, AND VECTOR ADDRESS AND PRICRI 

2528 o1sss2 108411 bOCT 

5529 (9)3454 012653 My (SP}4,89 
2530 913456 901411 2 BES +4 

2531 O13469 Cedde? 001000 CMP FO, 81000 sMAKE SURE ACDSESS 1 

3532 913464 153370 SHIS 03 

3533 Ol3466 019037 o01216 MOY RO, as TAvEC -SAVE AS VECTOR GOCS 
2534 O13472 362709 o00002 ADD Re RO 

2535 013476 1003? d01e20 MOY RO’ SaTAvece2 
2526 613502 104451 01700: =: TYPE =. MSGPRI SASK FOR PRIORITY 
esr O1350E cee ROOCT 
2538 913510 912600 MOY) (SP)+,RO 

2539 913512 901413 Bi SEG &§ sIF “O" USE CLD VALLE 
2540 913514 O20ce7 coood she RO, 87 :MAKE SURE ITS VALI 

254: 013520 101270 BHT 5$ 
es42 013522 000300 SWAB 828 «RO sPUT INTO HIGH BYTE 
2543 013524 906200 ASR RO NO SHIFT 

2544 013526 006209 ASR RO SINTO PROPER 
es45 013530 006200 ace £9 :POSITION 
2546 013532 042700 177437 Bic 8tC< 340) RD SAVE ONLY PRIOR ITY BITS 
2547 01352 019937 001222 MOY RO. daTHPAIO ;STORE IT AWAY 
2548 012542 104401 917012 és: TYPE mtacs :TACS=" 
2545 013646 016745 165434 Mov. fACSL, -< SP) ;;SAVE TACSL FOR TYPEOUT 

S50 013552 104402 TYP IC 3360 TYPE--OCTAL ASCII(ALL DIGITS) 
255] O12654 37440] 017020 TYPE MTADB 
2552 013560 O16746 iéS4E5 MOV FADBL, - (SP) $3 36V6 rioat FOR TYPEOUT 
2553 013564 1044c2 4 TYPOC ;G0 TYPE--OCTAL ASCII(ALL DIGITS? 
2554 O13566 10440] 017027 TYPE MTAVEC CT 

2555 013672 O1E74E E5420 MOY taVEC, -(SP) 5808 river FOR TYPEOUT 
2556 913576 104402 TYPOC ::G0 TYPE =sOC TRL ASCTICALL DIGIT 
2=57 O15600 104401 oc17040 TYPE MTAPRI “PRIORITY 

2558 013604 Ole746 iés4iec MOY (APR TS. -(SF) $5 SAVE TEPRIO FOR TYPEOUT 

2559 013610 lo44ce TYPOC 2:60 T PE-WOCTAL AESTIGALL DIGITS? 
2560 Oi2Si2 104491 017952 TYPE —, MSGOK "OK?" 

256i O13616 104407 ROCH! :G0 READ ONE CHARACTER 

252 0136c0 012600 MO ‘SPs RO ;GET T 

2562 Clzt2e2 022700 oOo015 | CMP 5,R0 “I$ IT “CR? 

2564 013626 OO140E EQ 5 i BRANCH, IF Yes 

2565 013630 622700 00013: CMP #’Y,RO I$ IT 

este 013624 001403 BEG 75° :1T iias 

2567 313636 104401 901176 TYPE SQUES :TYPE "7" 

2568 013642 900651 BR 3 ;AND LET HIN CORRECT THEM 
2555 O13644 19440! 017061 7$: TYPE = MYES ; TYPE OUT “YES” 

2570 13650 012650 MOY SP )4 RO ‘RESTORE RO 

267: C1326 600207 RTS pe :AND RETURN 

| 
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mii BaSIC LoScc TES® FART 2) MAINDEC-1i-D2TRS-C MACYI1 271732) i9-AUG-"6 11:53 PAGE $5 SEG 00es 
TABS. NEW ROUTINE TO CALCULATE THE CRC SES JO6S 
S ne SPREE EPPERESE SED SEES SEES E SES ESESED SERFS HES ESESISESIFFEFEFFSFE SSS 

<4 sTHIS SOUTINE WILL CALCULATE THE CRC 
75 s CALL: 
ra) : JSR PC, OC.CRC 380s) BYTE GF DATA 
Sisds4 D9. CRC 
379 013654 910046 MOV RO, -(5°) ;;FUSH RO ON STACK 
e589 013656 0:0146 MOV R1,-(SP) ;;PUSH RI ON STACK 
B1 913660 O:024%6 MOV Re, -( SP) ;;PUSH Re ON STACK 
SSe Olsb6e 910346 MoV R3,-(SP) ;;PUSH R3 ON STACK 
2583 013868 910446 es. MOV RY, -(SP) :;PUSH RY ON STACK 
t 013666 Ole76/7 000012 coocs4 MOV #2. ,3$ MAKE EIGHT ITERATIONS 
13674 O36703 OO0c0T4 MOV CRC.WD,R3 sPICKUP THE CRC WORD 
2586 §13700 005001 13 CLR \ 
¢ Q13702 O1030e - MOV RS, Re ;GET THE PARTIAL CRC WORD 
S88 013708 OYerDe 177775 BIC a?vEITOo, Rez ;STRIP AWAY EVERYTHING SUT SITOO 
25839 013710 906000 ROR RO sPULL OFF THIS BIT 
2390 Ols7le 9006101 ROL Rl ;AND SETUP TO XOR IT 
2391 90133714 019304 MOY R1,R4 sFORM THE XOR OF “RI” AND “Re” 
2s32 012716 40204 BIC Re, RY 
25$3 O013720 040102 Bie R1,82 
esSs 012722 050402 BIS R4,Re sRESULTS TO “Re” 
es3S 0127284 006002 ROR Re 
25398 013726 103006 3 BCC es 
2597 013730 O1e701 O40C02 MOV SBITIS!BITOL,R! 
2598 013734 019104 MOV R1,RY ;FORM THE XOR OF “Ri” AND “RS” 
$9 013736 40304 BIC R3,RY 
2600 913740 040193 BIC R1,R3 
2601 O13s742 950403 * BIS RY, RZ ;RESULTS TO “RO” 
2602 013744 006903 2s FOR R3 
2603 013746 005327 DEC (PC)* 
2604 013750 000000 3S: 4) 
2605 013752 00335e BGT 1$ ;5R IF MORE BITS TO 00 
2606 013754 010367 000014 MOV R3,CRC.WD 
2607 913760 912604 MOV (SP) +. R4 ;;POP STACK INTO RY 
e508 Q13s76e O1e&02 MOV (SP)+,R3 ;;PUP STACK INTO R3 
S$ 013764 OleeOe MOV (SP}+,R2 ;;P0P STACK INTO Re 
6 013766 Ole601 MOV (SP)+,R1 ;;POF STACK INTO Rl 
1 913770 012600 MOV (SP}+,R0 ;;POP STACK IN 
ef 013772 00207 RTS C 
$3 033774 900009 CRC.WO: 0 ;CRC WORD 
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MANUBL ADIUSTMENT ROUTINES s#sesaeeee 
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: THE FOLLOWING ROUTINES CAN BE USED TO MAKE AOJUSTMENTS TO_THE TUES 
3NC TE: jase BEFORE MSi iNG RNY OF THE ROUTINES LOAD AND ETAT ‘AT 214 sae 


A 


pSERREFA EELS RELA SSS FFESE FAAS FFE LE RFELSLLLEFSERELSSFSFFFS SF +FAFE FF 


WRITE FILE GAPS FROM “BOT” TS “EOT™ 
fod AT 220 P 
THIS ROUTINE — =! oa TO ADJUST THE “WRITE GAP MONC™ SND 
:THE “WRITE DELAY 
Ree rere ar iryt ene Se nenneEEEEDPET rer TTT TTT TT rrr TTT 


iegsug: MoV sSTACK, SP sKEEP THE STACK OUT OF THE WAY 
MOV setacet TACS 'SETUP THE TALI STATUS AND 
MOV JSTADBL, TADE ;DATA BUFFER REGISTERS 
RESET “RESET THE WORL 
MOV #W&GSUB JUSLPERR ETUP THE LOOP _ON ERROR ODRESS 
ISR PO aanxtoR :60 serub FOR NEXT DRIVE 
MOV pater STaCS. :SELECT OR 
M5vB OREWTAID! Cong Acs -SEND TAPE TO “S0T™ 
1008: eI aRECDY, tie WAIT ON READY 
MOVE —- SWFG!GO,aTACS ;HRITE A FILE GAP 
WAITREADY “WAIT ON READY 
BIT #LEADER, 2TACS "AT “CLEAR LEADER"? 
BEQ 1g :BR IF NO 
HALT :STOP IF YES 
BR WFGSUB LOOP ON CONT. 


y ELESERRERERELEREREESEEELELES EE EL EL ER ERELEEEEERED REESE REELS EE SEE 
MEET CRT TOUS BLOCKS OF DATA 


TART 
; THE PROGRAM WiLL HALT Hyer it TIMES 
5A TER EACH HALT SET THE SWR AND PRESS CONTINUE 
;HALT 1 --- SWR<7:0> = NUMBER OF BYTES PER BLOCK 
STALT 2 --- SWR<7:0) = _PATTERN DESIRED 
: HALT ; ~=~ SWR<15:0) = OPERATIONAL SWITCH SETTINGS 
:THIS ROUTINE CAN BE USED TO ADJUST rs. sin TIME MONO” 
;#* IF USING SOFTWARE ot REGISTER uy 


EACH HALT OPERATOR WILL B gE Proves 
OR THE VALUE WITH “SWR=X% Nene 
seeidtadidbae senesete cant taatamekaansaceeisstenmedammecueial 

bATSUB: ISR PC, a8 SET TBUF :GET BLOCK SIZE AND PATTERN 
MOV #Stac :KEEP THE STACK OUT OF THE WAY 
MOV SarAes, TACS “SETUP THE TAL] STATUS AND 
MOV JS TADBL, TADB :DATA BUFFER REGISTERS 
RESET :RESET THE WORLD 
MOV #WLOOP, J#SLPERR : SETUP THE LOOP on ERROR ADDRESS 
JSR PC JReNXTORV :GO SETUP FOR NEXT DRIVE 
MOV DRIVE, JTACS ;SELECT DRIVE 
MOVB  #REWIND'GO, 3TACS :SEND TAPE TO “BOT” 

1098: grr BREADY, STAC “WAIT ON READY 
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CYLL 27,752) 19-0u6-76 


“ic> 
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GIT GIGI 4 


five ROUTINE CAN a a TO ADJUST THE “SIGNAL MONO” 


ND THE “THRESHOL 


eogpeohenaneasenneosneasosnscaiopesasenntanesanpenetsaeeseents 


Pass $7 S£3 Co7¢ 
SE3 0070 
sR PC, DaWRTELK sWRITE @ BLOCK 
IT ei FADER, aTacS tAT aE eae LEADER” * 
Eo 1g :BR IF NG 
‘ALT : SSTOP IF “EOT" 
5R WLOOP “LOOP IF CONT. 
5 PESSFRELREAAESLE RE SERERLFALLFRELELAEF LE LF LELFFAEFLELL FFE LF ESFSFE 
: READ CONTINUOUS BLOCKS OF DATA 
bAcup: MOV sSTA “KEEP THE STACK OUT OF THE WAY 
MOV eetacet. Fas :SETUP THE TAL1 STATUS AND 
MOV JsTADBL, TADS ;DATA BUFFER REGISTERS 
RESET RESET THE W " 
MOY #ROSUB, J#SLPERR :SETUP THE Soe ON ERROR ADDRESS 
ISR PC. JSNXTDRV :G6 SETUP FOR NEXT DRIV 
MOV DRIVE aTACS SELECT DRIVE 
MOVB #REWIND'GO, aTACS :SEND TAPE TO “BOT” 
1008 EIT eRERDY,, OTA S “WAIT ON READY 
tv 4 
18: iSR PC JeROBLK :READ A BLOCK 
BIT sLEADER, JTACS "AT "CLEAR LEADER”? 
ENE ROSLB :BR IF YES---LOOP 
SR ! 
5 FFRAELHKFERAELLA TEL AEAE RE LAK FLL FEELS LEAL EE REAAEKAF ELA RE LALLA ELE 
: RITE nae GAP AND A BLOCK OF DATA FROM BOT TO ECT 
“THE PROGRAM WILL HALT THREE(3) TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINU 
‘HALT 1 --- SWR(7:0> = NUMBER OF BYTES PER BLOCK 
s HALT 5 ou= SWR<7:0> = PATTERN DESIRED 
‘HALT 3 --- SWR<15:0> = OPERATIONAL SUITCH SETTINGS 
i+ IF USING SOFTWARE SWITCH REGISTER 
; EACH HALT OPERATOR WILL BE PROMP METER 
: FOR THE VALUE WITH “SWR= ante NEWS" 
:AND THE “GAP TIME MONO”. 
“THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
jjHLAEAORDREAHRESOREOEEROEEEEEHESEOGORSSSEEEEHESSOREEES 
APBLK: PC ae aSé TBUF :GET BLOCK SIZE AND PATTERN 
WEBLOP: MOV sKEEP THE STACK OUT OF THE WAY | 
MOV seracat> TACs P THE TOA!! STATUS AND 
HOY De TADBL; TADB ‘BATA BUFFER a STERS | 
MOV #GBLOP , d#SLPERR SETUP THE LOOP ON ERROR ADDRESS 
JSR PC. JaNXTORY G0 SETUP-EOR NEXT DRIVE 
Moy DRIVE, JTACS :SELECT DRIV 
MOVB  #RE'WIND'GO. aTACS :SEND TAPE TO "BOT" 
1008: on tabs” saTats :WAIT ON READY 
18: slFG!GO,aTACS ;WRITE A FILE GAP 
TE TTREAD DY “WAIT ON READY 
! 
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TRL BASIC LOGIC TEST :Faai 2) MAINDEC<1i-DITAB@C - on MACYL1 27(7S2) 
O2TRBC. NEW WRITE A FILE GRP AND B BLOCK OF DETAR F! ROM BOT TO EGT 

ver «©O18308 «O32734 S29000 Bit sLEADER aTAcs 

TeS Oi4sle vO100S ENE 23 

ce3 (014314 004737 OL466C JSR PO SMHRTELK 

r30 Qi4sEe0 serie Ss2200 BIT sLEADER, aTACS 

rai Qivzes oe1rss a seg, a8 

‘ “32 UU es 2 

= cisseé S555" a" ‘ Lie A 

é 014330 wewi ts SR WOSLOP 


“F“-9 


ane) da 
Past Se 


i9-AUG-7E «11:5; 


‘ee weeece LEGDER”? 


S 
tT 


Fiat Lo CK 

At ei Bae LEADER"? 
:BP IF NO 

;STOP_AT “EOQT” 
:START OVER ON 


Cre? 
CONT. 


er nh bho on Ld 


c. : *ETaRT od DATA AND A FILE GAP 
¢ THIS ROUTINE IS USED AFTER “WRITE A BLOCK AND A FILE GAP™ ROUTINE 
c Fh CAN BE_USED TO ae JTHE "SIGNAL MONO”, THE THRESHOLD POT” 


AND THE “THPE BLANK MONO”. 
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ul. GIT) C000 un 6 Gstue--O wo ~ 3 
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’ wurururu rururorur Ai mre WoTororonrorunys 


pispeeeeiexsnescansesasassacsensssisesaessnzanenaensezasseazeses 


743 014332 012706 001100 BADR K: MOV #STAC sKEEP THE STACK OUT OF THE WAY 
744 0143236 013704 001206 MOV setae TACs :SETUP THE TAL! STATUS AND 
745 014342 013705 OOiéle MOV JSTADBL, TADS ‘DATA BUFFER REGIS" 
rae -D14S4E §=6000005 RESET “RESET THE WORLD 7 
e747 914350 Ole7a7 014332 OC1110 MOV SRGPBLK, JHSLPERS SETUP THE LOOP ON ERROR ADDRESS 
e748 014356 004737 O1s00e JSR PC, JaNXTDRV sO SETUP FOR NEXT ORIV 
2743 014362 010314 moy_ DRIVE, aTACS is : SELECT DRIVE 
2750 O14384 112714 o00017 MOVB = SREWIND'GO. aTACS SEND TAPE TO “BOT” 
2751 14370 032714 900040 100$: BIT sREADY, aTACS WAIT ON READY 
e752 014374 001775 BEQ 1005 
e7sa 014376 094737 014722 is: ISR PC aSRDBLK :READ A BLOCK OF DATA 
2754 014402 932714 oO20cc0 BIT HEADER STACS :AT “CLEAR LEADER"? 
2755 914406 001351 BNE GPBLK ae 
2756 OL4410 112714 oooo:s MOVB —ssSFBG!GO, 3TACS IGT INTD A FILE GAP 
2757 014414 104412 WAITREADY 
2758 Ol44ig 032714 ozo000 BIT #LEADER, JTACS SAT “CLEAR LEADER"? 
5769 O34422 00:343 BNE RGPBLK :BR IF YES 
2760 O14425 900764 SR 1$ :LOOP 
44} 
ede 
=7t: jy EEERERE EE ERERE RARER EER ER ER EE EERE RRERER EE EER ERE ERE ERAT BERETA ERE 
5755 : SPACE FORWARD FILE GAP FRUM "BOT" TO “EOT™ 
a7E5 ;START AT it 
STEEL ‘THIS ROUTINE CAN BE USED AFTER “WRITE FILE GAP” FOR LOW SPEED 
2767 : SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 
Z7E8 -WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
2769 * (SIGNAL MONO CAN BE CHECKED) 
2770 jsrsesulabstnatanneoatansasscestesneioeanenesnnaneaneaesaaacaais 
2771 C1426 012706 001100 dte ose: MOV sKEEP THE STACK QUT OF THE WAY 
2772 014432 013704 Of1206 MOV seTacet F acs :SETUP THE TAL1 STATUS AND 
2772 514436 013705 OOlz2le MOV JTADBL, TADB :DATA BUFFER REGISTERS 
2774 14442 pocgs RESET ;RESET THE W WORE : 
2775 OL4444 912727 O14H2E 001119 MOV #SFFGSB, JHSLPERR SETUP THE LOOP _ON ERROR ADDRESS 
2776 O144Se2 004727 o15002 JSR PC, JaNXTORV ;60 SETUP EO NEXT DRIVE 
2777 Ol445— O10314 MOV DRIVE, JTACS SELECT DRIV 
2778 O14460 112714 009017 MOVB #REWIND!GO,aTACS -SEND TAPE TO “BOT™ 
2779 «O144E4 032714 oood4o 100$: BIT BREADY, aTACS “WAIT ON READY 
2729 O14470 001775 3 @ 100$ a 
2761 Gi4472 112714 ocon12 1$: WSFFG!GO,aTACS :SPACE INTO a FILE GAP 
2762 Al4H7E 104412 HAL TREADY WAIT ON READ 
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MAINDEC-11-D27R8-¢ MACYL1 27 (722) L9-AUG-7& 11:51 PAGE 59 
bag 3HP roe! eB as bee) "EOI F 
Bit  - wLEADER2TACE ;AT “CLEAR LEADER"? 
BEG, :8 IFN 
HALT :STOP AT “EOT™ 
52 SFFGSE ;LOOP ON CONT. 


of FESEERASELESKERLAEEREEL ELSES ESE SF FLERFELSEEFEELELSSERESESLA FESS FES 
BACK SPACE FILE GAP 
;START AT 25 A 
;THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE “SIGNAL MONO”. 
SERERE LL FLEA ELALALLALELE SHELF ELL SALLE FLEE EEA RELLELELFLLEFELEE 


Phinga 

£5FGS8: RESET zo RESET THE WORLD 
MOV #8SFCSE, aeSLPERR -| OOP ON ERROR ADDRESS 
MOV DRIVE. aTAacs :SELECT ORIVE 

1: MOVB  w#BSFG!GO,aTACS :BACK SPACE A FILE GAP 
WAITREADY tHGIT ON READY 
3IT SLEADER, aTACS !AT "CLEAR LEADER"? 
SEQ 1§ :BR IF NO 
HEL -STOP AT BOT 
BR esFcss -START OVER ON CONT. 


Es FEF FLEE ERESTERALELREFEE SESE SE SEFFSAFESFTFSFRELSRFRLFEASEEESESFATEFLE 
: SETLP BLOCK SIZE AND PATTERN FOR SUBROUTINES 

HH FSSSESTELSEFERERSE FRESE REEFS ESSFRELLTAFELELFESKEKETEEFLELREFSEFEFETFE 
SETSUF: CLR 0 


HOLT sOPERATOR PUTS BYTE COUNT IN SHE 7:D> 
CMP #SHREG, SUR *USING S/W SWITCH REG. ? 
BNE 20 :NO- GET OUT 
GTSWR “LET HIM CHANGE IT 
208 : CONTINUE 
BISB = JSWR, RO sPICKUP THE BYTE COUNT 
BNE 23 -BR IF NON-ZERO 
1318 aSWR+i : CHECK IF GREATER THAN 277 
5 : 
MOV #376,R0 :SET FOR MAX ALLOWED 
1S: INC RO :MAKE IT 377 OR 1 
2s: MOV RO, a#BLKLIM :SETUP THE BLOCK LIMIT 
CLR JRPATTAN 
HALT -OPERATOR PUTS PATTERN IN SWR<7:2) 
CMP SSWREG, SUR :USING S/W SWITCH REG.? 
BNE 21$ :NO- GET OUT 
GTSUR :LET HIM CHANGE IT 
21%: : CONTINUE 
MCV3 § 9SWR,Q#PATTRN !PICK UP THE PATTERN 
HALT -SET OPERATIONAL SWITCHES 
CMP #SWREG, SWR “USING S/W SWITCH REG. ? 
BNE 223 :NO- GET OUT 
GTSWR :LET HIM CHANGE IT 
228: : CONTINUE 
RTS PC sRETU 
BLKLIM: 0 :READ AND WRITE BLOCK SIZE 
PATTERN: 0 :PATTERN TO GO ON THE TAPE 


§ fp REREREREEFLEERE RE EAE ERE RLERAEE LE REE EERE REL ERR EERE LA AREPEREERER 


- —— = ae on oe EL 


MUTUTOTUTUrUrUrOrrororrrm rrr rrr. 


COUN CUTOUT ON UT U TOO 6 
00 “07 U1 GoTo IMU tofu Ou 


Re co. 0000 09 coon 08 00 0b Coan oo Coop a cow cou 


fturu 
fiat 


WN 
jon | oe] on | on] 
Rowose ~ 
faVical at) oe] 
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fu 
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OooOoVOoOVoOOONO 
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TEST FAST 2)_ MAINDEC-11-D2768-¢ MACYAL 27722) i9-AUG-76 11:5) PAGE 60 
WRITE ROUTENE FOR THE MANUAL OPERATIONS 
; WRITE ROUTINE FOR THE MANUAL OPERATIONS 

LE PEEPESERELLER SELES FLEERL EFL ELAS SFA PICKLE THEO OCK Fr Fests 
013701 oO14es4 ATBLK: MOV DeSELKLIM,R1 -PICKUP THE BLOCK SIZE 
llevis occoos MOVE BURITE!GO, aTACS ;START & WRIT ‘€ 
14413 if: WAITXFER :WAIT ON TRANSFER REQUEST 
032714 o00040 IT sREADY, ITACS ;DID READY SET? 
392230 SNE 3 -BR IF YES -. 

9833! DEC Ri ;COUNT THIS REQUEST 
502403 oT 23 -SR IF TIME FOR ILSS 
13715 oO14ese MOVB a#PATTRN,@TADS :PUT DATA ON TAPE 
586767 aR 1s iL) P 
O52714 900020 23: SIs ILBS,aTACS WRITE CRC AND SHUT DOWN 
1o441e TAT TREADY TAIT ON THE READY FLAG 
590257 3$: RTS PC 

.% FHFSELSSLESE FLEA SLES ES ERFEF FESS EES SLFRELEL FFE LSFERE FEF EFLESLEFSEFEFE 
: READ ROUTINE FOR THE MANUAL OPERATIONS 

= SESFLEESERE SESE SEA EEFEFLE SELLE ERELS FEE AFSELL SELL ELLA FEFFLSSSEEFFFLELE 
013702 O146ss bok: MOV QaBLKLIM, R2 :PICKUP THE BLOCK SIZE 
613700 91465 MOY JePATTRN, RO USE THIS DATA PATTERN TO COMPARE TO 
112714 800005 MOVB _- BREAD!GO; aTACS -START A READ 
104412 13: WAITXFER :WAIT ON TRANSFER REQUEST 
032714 900040 SIT READY, ATACS iS READY SET? 
o1o12 BNE 3 ‘BR IF YES 
005302 BEC Re : COUNT THIS REGUEST 
pp240s5 BLT 23 :BR IF TIME FOR ILBS 
O11S01 MOY JTADB,R! READ THE DATA (BUFFER 
120091 CMPB RO, RI !CHECK THE DAT 
001767 SEG 1$ :BR IF OK 
104905 ERROR § :BAD DATA 
o00406 BR , GET OUT 
052714 og0020 23: BIS #IL8S,TACS :READ ILBS 
104412 WAT TREADY “WAIT ON READY 
005714 3$: TST JTACS -CHECK FOR ERROR 
190001 BPL ug :BR IF NONE 
199093 ERROR “ERROR OCCURRED 
oc207 ug: RTS Pc : RETURN 

5 EXKRERREKEE REEL ERE LER RELL EEEE LE LEE EES LEER EE REREREFEREERE EEL EERE 

ROUTINE TO CHANGE DRIVES 

105777 164132 a TSTB SSW s1S SWO7_ON A (1)? 
100416 BMI 35 : YES 
005203 CLR DRIVE :SET DRIVE TO “A” 
(13701 001230 MOV DBDRVPNT , R} :GET DRIVE POINTER 
izzl2e7 00101 CMPB «(RL ) +, #°A [IS IT DRIVE A’? 
001402 BEQ 1g BR iF YES 
512703 ooo400 MOV UNIT, DRIVE “SET DRIVE TO "8" 
105711 1S: TSTB. sR) ;LAST OBR IVE BEEN SELECTED 
oo1cde2 BNE 2s 
01270! co1ec4 MOY #DRVKEY,R1 RESET spRIVE POINTER 
910137 o0j220 23: MOV RI, IRDRYPNT :SAVE DRIVE POINTER FOR NEXT TIME 
000207 33: RTS PC’ :G0 BACK 
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Vg 


n 
~~ 
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L1=BeTAB-C MACYL1 27(722) 19-AUG-76 11:5, Face 61 wee yy 
E DRIVES SEG ut 
gs FRFEEASE SSSA FSF LSE LF SASS SES ESF SEF ELE SESS EFSF FSSA S RSA SS AFF SSF 444E 

SETTL ROUTINE TO EXAMINE ORIVE(S) FOR AVAILASLIT 

oe Se 

; mov SORVKEY, RO 

: TSR PC, a8 EXAM :RL IS DESTROYED 

: NORMAL RETURN 


ERROR RETURN 
EXAM: = Mov aeTACsL Ri 
Cl (Rl) 


CLR Poe ives"Aa" FUNCT IoN="hece 
eMPB) sé, (RO) “EXAMINE DRIVE "A"? 
BEQ :BR IF YES _ 
BIS #UNIT, (R1) ‘SELECT DRIVE “8” 
13: BIT BREADY, (81) :WAIT ON REQDY 
BEQ 1$ 
TST RL} : ANY ERROR? 
PPL a3 -BR IF N 
BIT sOFFLINE, (RL) ERROR DUE TO “OFF LINE”? 
BNE -BR IF Y 
BIT BLRTLOCK, (RL) ; ERROR Due TO “WRITE LOCK"? 
CNPB #21707!B1T00, aSuR READONLY SELECTED? (RDIPAS) 
CMP =sBBITO7IBITOL'BITOO,ISWR : (RDEPAS)? 
SEQ 4 ‘BR IF YES 
8R 25 : TAKE THE ERROR EXIT 
23 SIT sLEADER, (1) : ERROR CUE TO “CLEAR LEADER"? 
SNE a$ :5R IF Y 
33: ADD #2, (SP) TK ERROR RETURN 
43: RTS pe RETU 


ee ee ee a ee a eee = ee a ee ee 


ee a ee ee 7 + - ee + 


-—- mee: 


a 


TAL. Basic a 
C2 RBC. NEW 
e325 
E28 
eéS3er 
€328 
e329 
2339 
2321 
232 
2933 
23348 
2935 
£335 
2337 
2338 
2939 
2340 
2341 
e342 015152 
es43 015156 
3344 915160 
23 015162 
e346 O1S164 
2347 OLS166 
2348 015172 
2343 015174 
2350 015176 
2951 015200 
2352 015202 
2353 915206 
2354 015210 
2355 015214 
2956 015216 
2957 OiS222 
2358 015224 
e3sg 01S226 
2968 015230 
£3961 015232 
232 015236 
2363 015240 
e364 015244 
e365 015250 
2366 015252 
2367 
2368 015256 
e389 0152 
23970 015264 
2371 015270 
e972 015274 
297 
2974 
2g 
2376 15276 
2977 91530e 
2978 15306 
2379 015214 
e982 O15316 


10767 


000776 


112716 


COS72é 


8 ee ee eee 


164001 
ooooce 


cocoate 
000011 
000200 


008129 


OCOCSE 
163706 


163676 
090001 


000032 
000072 


000040 
000014 
000007 000052 
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MACY 1! 27 (732) 19-AUS-7E 


*.SSTTL TYPE ROUTINE 


pL REFSPREA SRR ERESES cERELERE EE RER EE EEEEEE ERE EEE RELEL RED EES EASELS 
: #ROUTINE TO TYPE ASCIZ ta wer? MESSAGE MUST TERMINATE WITH A O BYTE. 


;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS hee ALINE FEES. 

;#NOTEL: WULL PONTAING THE CHARACTER TO BE USED AS THe” FILLER CHARACTER. 
; #NOTE2: siti CONTAINS THE NUMBER OF FILLER i REQUIRED. 

; SHOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER 


SCALL: 
pn) USING A TRAP INSTRUCTION 
TYPE  ,MESAD 


Pg YPE 
7% MESHOR 
3 
YPE: TSTB $TPFLG 
BPL 1$ 
HALT 
BR 33 
13: MOV RO, -(SP) 
MOY ade (SP), RO 
23: MOVE (RO) +,-(5P) 
BNE 4g 
TST (SP)+ 
£0$: MOV (5P)+,.R0 
38: ADD #2, (SP) 
RTI 
4S: CMPB OsBHT. (SP) 
BEG og 
CMPB ss BCRLF, (SP) 
BNE 5 
TST (SP)+ 
TYPE 
SCRLF 
CLRB § S$CHARCNT 
BR 2g 
S$: JSR PC. S$TYPEC 
6S: CHP SFILLC, (SP)+ 
MOY $NULL, -(SP) 
73: DECB «AC SP) 
BLT &$ 
ISR PC STYPEC 
DECB SCHARC 
BR 
sHORIZONTAL TAB PROCESSOR 
gS: MOVB #’-—, (SP) 
: JSR Pc, $TYPEC 
BITB #7, SCHARCNT 
BNE 9S 
TST (SP)+ 


;:MESAOR IS FIRST ADDRESS CF AN ASCIZ STRING 


iia eve A TERMINAL? 
; HALT HERE IF NO TERMINAL 
iL EAVE 


VE RO 
LIGET ADDRESS OF ASCIZ STRING 
fee I CHARACTER TO BE TYPED ONTO STACK 
F IT ISN’T THE TERMINATO 
ue TERMINATOR POP IT OFF THE STACK 
;RESTORE RO 
; ;ADJUST RETURN PC 


: + BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3;POP_ <CR><LF> EQUIV 
;; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 
HCO TYPE CHARACTER 


;;G0 “ THIS CHARACTER 
site TIME Eon ae ame ? 
s1F N NO GO GET 


‘BR 

+160 TYPE A ULL 

$375 NOT COUNT AS A COUNT 
; LOOP 


; sREPLACE TAG WITH SPACE 
:: TYPE A SPACE 
;;BRANCH IF NOT AT 


:;POP SPACE OFF STACK 


aren 


min 


ken 





Tali BASIC LO 


, OZTABC. NEW 
e981 


Se 
e933 015379 


1 
2022 01S47e 


Se 


GIC TEST (PART 2) MAINDEC-11-D2Ta8-C MACYIL 27(732} i9-AUG-76 11:S5i PAGE 63 


TYPE ROUTINE 


105777 163622 


116677 909002 163 
5 ripe OCo015 o6000 


900020 
o0Ce0 


6 
ord ocooc4 900002 


006102 
pic? ie 177770 


6 
010166 oc00le 
RISERS 000010 


000000 


‘LO6 


;:GET_ NEXT CHARACTER 
;;WAIT UNTIL PRINTER IS READY 


} 
asTes 
2(SP) ,atTPS ;;LOAD CHAR TO BE TYPED INTS DATA 
CMPE 8CR,2( SP) i308 CHARACTER A CARRIAGE RETURN? 
BNE 1$ :;8RANCH IF 
CLRE SCHARCNT ;;YES--CLEAR CHARACTER COUNT 
BR $TYFPEX 73 EX 
1$: CMPB LF, e(SP) ::IS CHARACTER A LINE FEED? 
BEQ $TYPEX :: BRANCH IF Y 
INCB (PO)}+ ;:;COUNT THE CHARACTER 
SCHARCNT: .WORD OQ ;; CHARACTER COUNT STORAGE 


STYPEX: RTS PC 
.SBTTL READ AN CCTAL NUMBER FROM THE TTY 
5 5 REL EEEEAEE EKER KER EE EE TEESE EERE ER EERE ESERIES EIR EEE IIE 


?$THIS ROUTINE WILL READ AN CCTAL (ASCII) NUMBER FROM THE TTY AND 
j #CHANGE IT TO BINARY. 
°£U 4 





1% ROOCT ;;READ AN OCTAL NUMBER 
: & RETURN HERE ::LOW ORDER BITS ARE ON TOP OF THE STACK 
x ::HIGH ORDER BITS ARE IN SHIOCT 
RDOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
MOV 4(SP} 2°SP) :: INPUT NUMBER 
MOV RO, -( SP) -:PUSH RO ON STACK 
MOV R1:-(SP) ;;PUSH R1 ON STACK 
MOV Re; -(SP) :;PU5H Re ON STACK 
18 RDLIN ::READ AN ASCIZ LINE 
MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
ite a :;CLEAR DATA WORD 
23: MOVE (RO) +,-(SP) ;;PICKUP THIS CHARACTER 
BEG 38 IF ZERO GET OUT 
ASL Rl +2 
ROL Re 
ASL Rl 334 
ROL =e 
ASL RI 53*8 
ROL BE 
BIS #407, (SP) ;STRIP THE ASCII JUNK 
BOD {SP)+, RA 3 #00 IN THIS DIGIT 
3: TST (SP)+ ::CLEAN TERMINATOR FROM STACK 
MOV R1, 12(SP) >:;SAVE THE RESULT 
MOV Re. SHIOCT 
MOV (SP)+,Re ;;POP STACK INTO Re 
MOV (SP)+-R1 -:POP STACK INTO RI 
Hoy (SP)+'RO *:POP STACK INTO RO 


33 N 
SHIOCT: .WORD O ;;HIGH ORDER BITS GO HERE 
.SBTTL TTY INPUT ROUTINE 


hoya ti ce tot gee ct i amt. «tienes acre 
NABL LSB 


cm ee es + ee 





TAL] BASIC LOGIC _TEST ¢ 
reein8 NEW TTY INP 
3037 
~ 

a3 
3040 
3041 

| 3042 

| 3043 015474 922767 
3044 015502 001074 
3045 O15S04 105777 
3046 61551c 100071 
3047 O15S512 117746 
3048 O15516 O42716 
3049 015522 022726 
3050 015526 001062 
3051 6015530 126727 
3052 015536 OO14SE 
3053 

; 3054 o1ss4O 104401 

i 3055 oO15544 104401 
2055 015550 01674 
3057 015554 104402 
3058 015556 104401 
3053 o01556e o0504 
3060 O1S564 o05046 

| 3061 O1SS66 105777 

/ 3062 015572 100375 

| 3063 

| 3064 O15574 11774E 
3065 9156090 O42716 
3066 

| 3067 

| 3068 

3063 15604 021627 
3970 015610 901005 

| 3971 O15612 104401 
3072 O15616 062706 
3073 015822 000757 
2074 
3075 

| 3076 oO1 021627 
3077 015630 901022 
3078 615632 005766 
3079 015636 001403 
3080 015640 016677 
3081 O15646 0627 
2082 O15652 104401 
3083 015656 126727 
2084 O15664 001003 
3085 O15666 012777 
3086 015674 o0000 
3087 O15676 004767 
3688 015702 O2ibe 
3089 015706 O0e420 
3990 015719 O21627 
3031 015714 003015 
3092 O15716 O42726 


000176 
163434 
163430 


163406 


016221 
516226 
lb242e2 


016237 


163352 


163346 
177609 


000025 


016214 
000006 


000015 
og0co4 
000002 
000006 
001177 
163253 
000100 


177420 
O000E9 


000067 
000060 


163436 


000991 


163272 


000001 
163250 


"dais Bete 


MO6 


MACYI1 27(732) 19-AUG-76 11:53 PAGE 64 


preeseeseepnevesters vies seennee steer eee snannnenenteneenanrenerns 
: $SOF TWARE SWITCH REGISTER CHANGE ROUTIN 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER 


;¥SERVICE THE TEST 
jeHHEN oe IN TTY FLAG M 
#SWREG, SWR 


$exs KSW WR 
ENE o$ 
TSTB.) 3s AS TKS 
BPL 5$ 
MOY § a$TKB,-<SP) 
BIC #0177, (SP) 
CMP #7, (SP3+ 
BNE 15 
CMPB SBUTOB, #1 
BEQ 15$ 
TYPE  ,S$CNTLG 
$GTSWR: TYPE aM SW 
MOV CWREG, -(SP) 
TYPOC 
TYPE , SMNEW 
19%:  cLR ~(SP) 
CLR -(5P) 
7$: TST8 a$sTKS 
BPL 7$ 
MOVB a$TKB,-<SP) 
BIC #tC177, (SP) 
9s: CMP (SP), #25 
BNE 10$ 
TYPE SCNTLU 
208: ADD ke SP 
BR 198 
10$: CMP (SP), #15 
BNE 16$ 
TST 4(SP) 
BEQ 11S 
MOV 2‘SP),aSWR 
113: ADD #6,SP° 
143: TYPE SCRLF 
CMPB SINTAG, #1 
BNE 
MOV #100, I$TKS 
15$: II 
16$: JSR PC STYPEC 
CMP (SP), 4 
BLT 
CMP (SP), #67 
BGT 1 
BIC #60, (SP)+ 





WILL 
FOR CHANGE  ailaaate TCH REGISTER TRAP CALL 


71S THE SOFT-SWR SELECTED? 
35 BRANCH IF 
ss CHAR T HER Er” 
F NO, DON’T WAIT AROUND 
+ COVE THE CHAR 
::STRIP-OFF THE ASCII 
si] ITA CONTROL G? 
RETURN TO USER 

tiie WE BENNING IN AUTO-MODE? 

: BRANCH IF YES 


;;ECHO THE CONTROL-G (1G) 
; TYPE CURRENT CONTENTS 
ji SAV E SHREG FOR TYPEOUT 
TyPE--OCTAL ASCII(ALL DIGITS) 
+S BRONPT FOR NEW SWR 
;] CLEAR COUNTER 
THE NEW SWR 


35 ° 


:CHAR THERE? 
:11F NOT TRY AGAIN 


;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 


::1S IT A CONTROL-U? 

Foci Ri NOT 
YES, ECHO CONTROL-U (¢U) 
iS TERORE PREVIOUS INPUT 
:LET’S TRY IT AGAIN 


$318 iT A <cR>? 
YES is. T THE FIRST CHAR? 
: BRANCH YES 


33 UP ae 
HTREEN <CR> 


t FECHO CHAR 
; 3BRANCH IF YES 
; CHER 


; BRAN HIF YES 
;;STRIP-OFF ASCII 






ns 


EL 


TALL BASIC LOGIC_TEST (FART 2) MAINDEC-11-D2TAB-C MACYL1 27(732) 19-AUG-76 11:51 PAGE 65 
Ootage RE oe TTS INoUT ROUTINE : i 77 A 





HEHEHE GHEE HEHEHE TSHR 


3033 015722 O0S7eG 000002 TsT BSP) i:]5 THIS THE FIRST CHAR 
¢ 3 ; 

hee BieSsa Bpeat ASL (SP) ::NO, SHIFT PRESENT 

30% 015732 O0631& ASL CSP) :; CHAR OVER TO MAKE 

3097 015734 006316 ASL (SP) :; ROOM FOR NEW ONE 

3098 015736 O0Se65 coo002 i7s: INC ecSP :;KEEP COUNT OF C 

3099 015742 556616 177776 SIS = =2 (SP), (SP) ;3SET IN NEW CHAR 

3100 o15746 000707 2 BR :3GET THE NEXT ONE 

3101 15750 104401 001176 18$: TYPE  ,SQUES STTYPE ?<CR><LF> 

3102 o15754 oco7e0 ge 20$ ;;SIMULATE CONTROL-U 

3103 .DSABL LSB 

sibs 

3106 5p RRAAAEKEELELEEL ERE LE REEL ELE LEE ERLE FELEREREREEREL LEER ELERAEEEEES 

$197 jATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

4 : : 

2198 3% ROCHR ;;INPUT @ SINGLE CHARACTER FROM THE TTY 

2110 1% RETURN HERE ;;CHARACTER 1S ON THE STACK 

gill :# ;;WITH PARITY BIT STRIPPED OFF 

3113 : 

3i14 OIS755 011546 SROCHR: MOV (SP), -( SP) ;;PUSH DOWN THE PC 

3115 O15760 O16666 000004 op0002 MOV —- 4(SP} ,2¢SP) i 7SAVE THE PS 

Siig 1766 105777 163152 1S: TSTB) = -ASTKS ;;WAIT FOR 

3117 015772 100375 BPLs1S 338 CHARACTER 

3i18 O15774 117766 163146 090004 MOVB  @$TKB,4(SP) ;;READ THE TTY 

3119 O16002 O42766 177600 990004 BIC = #tC< 177) ,4(SP) $:GET RID OF JUNK IF ANY 

3120 O16010 Oeste7 coo004 o00022 CMP = «4(SP), #23 3315 IT A CONTROL-S? 

3121 16016 001013 F BNE 3% ;7BRANCH IF NO 

3ié2 016020 105777 163120 es: TSTB = STKS :;WAIT FOR A CHARACTER 

3123 016024 100375 PPL ;;LOOP UNTIL ITS THERE 

31e4 O16026 117746 163114 MOVB  @$TKB,-(SP) ;;GET CHARACTER 

2125 OieOse O4e716 177600 BIC —- wt 177, (SP) ;;MAKE IT 7-BIT ASCII 

3126 16036 Oecbe7 000021 CMP = (SP) +, kel :;1S IT A CONTROL-Q? 

3127 O16042 001366 BNE 2 ;;1F NOT DISCARD IT 

3128 O16944 000750 ER 1§ ;;YES, RESUME 

3129 O16046 Oeb627 000004 COOLYO 33:  # CMP  4(SP), #140 :;15 $1 UPPER CASE? 

2130 O16054 002407 BL oe ;;BRANCH IF Y 

3131 016056 Oebbe7 900004 000175 CMP = - Y(SP), #175 3315 IT A SPECIAL CHAR? 

3132 16064 003003 BGT 4 ;;BRANCH IF YES 

3133 O1f066 42766 oooc40 OO0004 BIC #40, 4(SP) :;MAKE IT UPPER CASE 

gis3 Sléc74 00002 4$: RTT GO BAC - 

iz j ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

3138 ROLIN ;;INPUT A STRING FROM THE TTY 

3139 é RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

z1i0 : ;; TERMINATOR WILL BE A BYTE OF ALL O°S 

] 

3142 O16076 O10346 SROLIN: MOV —- RB, - (SP) ;;SAVE R3 

3143 G16100 012703 o16204 1$: MOV —s WS TTYIN,R3 ;;GET ADDRESS 

3144 016104 022703 O16214 2$: CMP sSTTYIN'S.,R2 5 ;BUFFER FULL? 

2145 16110 101405 BLOS 44S ;3BR IF YES 

3146 Ol6l12 104407 ROCHR ; :7G0_READ ONE CHARACTER FROM THE TTY 

2147 O16114 112613 MOVB © (SP)+, (R3) :;GET CHARACTER 

3148 Olelle 122713 009177 10$:  CMPB #177, (R3) :;1S IT A RUBOUT 


_—_- ne ee ee ome a ee a ne Re re ee ee. ee ee. oe ee 8 8 a rr ee Se ees com 


BO? 





"Sil SRSIS LOGIC TES” .FRST 2) MRINTEC-L1-DITRE-C MecYil 27 2) (o-6US-75 11:5: Fest St 
DITS8. NEW TTY INPUT SOUTINE 
3:89 C1éi2z 201003 SNE 33 2:SKIP IF NOT 
3152 Ribigs LOO) 051178 oe TYPE $0UES :: TYPE A°?" 
3151 16130 O50763 38 ig S3CLERR THE BUFFER AND LOGE 
side Gi6i32 i11367 90DQ4% 38 MOVE ‘R29 7:ECHO THE CHARACTER 
3:85 bieis 14881 | S]EECe TYRES 
2:54 Gisi42e i2z27e3 000015 CMPE 815, (R2)+ ;;CHECK FOR RETURN 
i pib146 301356 ONE 2$ 33L07P_ IF NOT RETURN 
sisé Oi6! 105063 177777 CL eS =1(R3) > CLEAR RETURN (THE 1S) 
Bis? 516154 e845) 001200 TYPE =, LF SiTYFE @ LINE Fe 
2:58 Sie18C 9226: MOV '5)+ 82 ESTORE 83 
3i5S C5162 Sirsse MOV (5°) +158) $ ADSUST THE STGCK AND PUT ADDRESS 6 
2:86 216.89 O1g666 900004 o00052 MOV 4(SF) .2(SP) 33 FIRST ASCII CHARACTER ON IT 
sisi Ol8i72 Ole7bE Clé2e04 Cocccs4 MOV eSTTYIN, 4 SP) 
sige Ciseod 90052 RTI : RETR 
3if2 Olte0e 900 3s: BYTE C STORM FOR ASCII CHAR. TO TYPE 
sigs 16203 jaa. 8) ‘ie: a 
2is5 016206 9000:9 STTYIN: .BLKB 6. : RESER 8 BYTES FOR TTY INPUT 
21s pipes’ os2536 f0s015 009 $CNTLU: .ASCIZ /tur<iS><12> re 
2187 Oleee! 136 SC? o000le $CNTLG: .ASCIZ 7¢6/<15><le + ONTRCL “¢" 
S168 Ol6226 O05015 53523 O20l22 SMSWR: .ASCIZ «<15><12>/SWR = / 
3163 O16234 O25075 099 
3170 016237 D492 O47040 OS2505 S§MNEW: .ASCIZ /“ NEW = / 
317; Olé244 o36440 300040 
3:72 .SETTL BINARY TO OCTAL (ASCII) AND TYPE 
3174 sEPESSLLESSASRS FER ESLER SSLELLS SSS SS SAEL EAN EE LA PSELL LS ELAS SHSLESE 
3175 THIS ROUTINE IS USED TO CHANGE A 16-BIT E'INARY NUMSER TO A &-DIGIT 
3i76 :#0CTAL (ASCII) NUMBER AND TYPE IT. 
siz jaSTVPOS---ENTER HERE TO SETUP SUPPRESS ZERIS AND NUMBER OF DIGITS TO TYPE 
3175 tf MOY NUM, = (SP) NUMBER TO BE TYPED 
380 :# TYPOS j CALL FOR TYPEOUT 
318! :# .BYTE ON :;N=l TO & FOR NUMBER OF DIGITS TO TYPE 
2182 ;* -BYTE M #3M=1 OR 0 
3i€3 :& 1=TYPE LEADING ZEROS 
3184 H TSE SPERESS LEADING ZEROS 
21gt : #ETYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
2187 :#STYPOS OR $TYPOC 
2188 ; #CALL: 
2:89 t+ MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
2:50 ii TYPON 3;CALL FOR TYPEOUT 
ik i #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
2154 Ls MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
us *# TYPOC 3;CALL FOR TYPEOUT 
3197 Ol6250 S17E46 oCDD000 STYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
2198 016254 116667 000001 000211 MOVE 1(SP), SOF ILL 3 LORD ZERO FILL SWITCH 
3199 Ol6262 112667 000207 MOVB (SP)+, SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
2200 Ol6266 062716 O0000e ROD #2, (SP) : ADJUST SE TaN ADDRESS 
2231 Ol6272 000406 os STYPON 
Z20e 016274 112767 000001 00017: STYPOC: MOVB #1,S0FILL 3;SET THE ZERO. PILL SWITCH 
2e02 016362 112767 900006 ODdiES MOY8 86, SOMODE+1 »:SET FOR SIX(6) DIGITS 
2204 16312 12767 CO000S OOC1IES STYPON: MOVE #5, SOCNT ::SET THE TTERETION COUNT 


~ 2. ie rer. = we. eee ee ee eee = Sn eae eR er en ee 


ee ee ee ee aaa eam I I a ea atc ane e 


TALL BASIC LOGIC TEST ‘PART 2) “AINOEC-11-Dz 
DoTRBC. NEW -BINARY TO OCTRL USSCII) AND T 
| 3205 O1b316 10346 
| $208 Sibse9 GiO4N 
3ecr OlS3e2e O10S46 
| 3238 16389 116704 ooa14s 
| 3209 915230 005404 
| Belo 016332 O82704 900008 
| Bell 916336 119467 00132 
| Sig Qlesse Lieros OPics 
| Held O16346 O1660S 500012 
 ~=#IS Ole3se 905003 
| $eiS 016354 006105 18: 
| Zeib 516356 900404 
| 321? G18360 096105 23: 
| 3218 016362 006105 
| 313 Gtbse8 Se108 
seed 016366 91 Fi 
21 016370 006103 33: 
Beze 016372 105367 00007 
| gees O16376 100016 
3224 026400 042703 177770 
3225 O1E404 901002 
3226 016406 905704 
3227 O164i0 001402 
3228 Ole4le o0S204 of 
3229 OIS4I4 052703 90060 
3220 16420 o040 os 
3231 O164E4 110367 o00d4 
See SIE43O 104401 016472 
3233 S1S434 1053267 00032 7$ 
3234 16440 903347 
3235 O1b442 Od2402 
3236 O16444 005204 
3237 Sie44e 000744 
3238 16450 912605 ts: 
3223 Ole452 012604 
3240 O16454 012653 
241 16456 O1EEEE cDcoo2 coos 
2e42 OLEHE4 012616 
3243 Oie46_ 000002 
3e44 916479 ~~ G00 8s: 
3245 C1647] 000 
3e4e 316472 009 SOCNT 
3247 Cig7s 000 SOF IL 
SEs Cig474 co0dte SOME 


[OD ie tn re en 8 re rer meters nner arene ae mar 


o_o 7 8- + eee ee eee 


7, 84 
Nove BY, $OMODE 
MOVE = SOFILL, RY 


MOV ie( SP) FS 
CLR R 

ROL Be 

chs] 3$ 

ROL at 

ROL gs 

FOL gS 

MOV RS,R3 

ROL RG 

DECS SOMODE 
SPL 73 

BIC 8177770,83 
BNE 4g 

TST RY 

BEG 3 

INC ce 

BIS #'0,&3 
815 sa’ R3 
MOVE 3,8 
TYPE o¢ 

DECS §~=s-s« SCNT 
BGT 23 

PLT zt 

INC = 

BR 2s 

MOV (SP)+,R5 
MO (SP34,R4 
MOV (SP)+,R3 
MOV —s- BSP 74(SP) 
MOV (SP)+, (SP) 
RTI 

-BYTE O 

RYT | 

BYTE 0 

BYTE 6 

—: .WORD 0 


te a ee ere ee 


LPT I OO, 


CO7 


pec MACTIL @7(7S2! i9-GUG-7E 11:53 PAGE & 
MUV R3,-(SP) ; SAVE RG 
MOV R4,-(SP) ii SBVE oe 
MOV €S,-(SP) 7 :SAVE RS 
MOVE s0hOCE+1, hal : GET THE NUMSER OF DIGITS T'S "YFE 
NEG 
ROD 


$3 SUS TRS T IT FOR MAX. ALLOWED 
$3 2AVE T FOR USE 
T THE ZERO FILL SWITCH 
: PICKLE THE INPUT NUMSER 
Vs GLE af i are 
3 si ae ere S8 INT 


3390 


7: PORM TH S DIGI 


PRESS ANYMORE 0°S 
Rie THIS DIGIT ASCII 
BScIt IF NOT ALREADY 
ce oe YPING 
YPE THIS DIGIT 
SCOUNT BY I 
‘BR IF MORE TO DO 
R IF DONE ; 
THINSURE LAST OIGIT ISN'T A BLANK 
;3G0_00 THE LAST OIGiT 
SRESTORE RS 


ORE RY 


' 
me 
- 


3 
ee 
es 


;RESTORE R3 
ops THE STACK FOR FETUSNING 


$32 RO FIL 
: NUMBER OF tarts TQ TYPE 


ee i eee a ee ee ee 





iawocal 





DO? 





TBs S8sic Loacc TES’ FRR 2 MAINCEC SL L-DSTRE<< RCYLL 271752) Lt-BUG-7—E 11:53, PAGE bE 
CITMEC. NEW Tae DECIDES 

3248 .SE7TL TRAP DECODER 

ses 

S2sl ‘3 RREREPRERELESERLESELELELESEL ERE SE FEL ILERSESFESERI SESE SS EEFESE 

gese s#THIS ROUTT! € ofthe 9 ThE Lowen 8 SYTE EOF THE “TRAPS INSTRUCTION 

3253 oo USE Ij NDEX OUGH THE TABLE FOR THE STARTING ACORESS 

2254 :#0F THE DesiRec Te ne. oe USING THE ADDRESS 087A INED i? WILL 

3255 :#50 10 THAT ROUTINE. 

sz 5 

Ses’ O1GH7E 010045 STEAP: MOV RO,- (5°) ; 3 SAVE 

e38 BissoC 0:8650 000nCe MOV e(sP),80 73GE) iy AODRESS 

=5$ O16504 o0S740 TS? -(RO) 5 3;8AC nf Ye 

setS O18506 111000 “OVE (RO) ,8o 3;GE1 RIGHT BYTE OF TRAP 

3251 016519 095300 hk. RSL ;FOSITION FOR INSEXING 

cese ClbSle 916000 OCissz= OV STRPRO(RO).RO ;;INDEX TO TABLE 

323 Clesi& Cooeco RTS te) 7:60 10 ROUTINE 

3eé4 

3265 

S66 ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 

wil 

2268 018520 OLIE4S STSAPS: MOV (S&),-(8) 3 SHOVE THE <F DOWN 

3265 1522 Clees— 00004 cODCcE MOV 4ise) 27SP) THE PSW DOWN 

=5f0 JigS3o 30000e RTI test ORE THE “Si 

see SETTL TRAP TASLE 

3274 ,#7HIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CELLED 

3e75 :#BY THE “TRAP” INSTRUCTION. 

3275 

3277 ; ROUTINE 

3e78 ee et 

Ze73 016532 916520 $TRPAD: .WORD STRAP2 

2288 OL6534 015:52e STYPE *CALL=TYPE TRAP+1(104401) TTY TYPECUT ROUTINE | 

328} 016536 O1b274 STYPOC : CALLS TYPOC TRAP+2(104402) TYPE OCCTAL NUMBER ig LEADING ZERCS? 

se82 C1es40 016255 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE (°7AL NUMBER (NO LEADING ZERCS 

acca 0i6S4e 016310 STYPON ;;CALL=TYPON TRAP+4( 104404) TYPE UC TAL NUMBER (AS PER LAST C CALL) 

sce Oiss44 o15544 SGTSWR ;,CALL=GTSWR TRAP+S(!0440S) GET SOFT-SWR SETTING 

se 

3257 C:es4 015474 SCKSWR yee sors TRAP+6( 104405) TEST FOR CHANGE IN SOFT-SUuR 

3288 SieSS0 Cis7sé SROCHR ;;CALL=ROCHR TRAP+7( 104407) TTY TYPEIN CHARACTER ae 

sess O16552 916076 SROLIN ;;CALL=RDLIN Tepetitinntts TTY ing STRING ROU ue. 

3230 CieSs4 015372 $ROOCT ;:-CALL=RDOCT Had TTS aa mA IN OCTAL NUMBER FROM 

seS CistSSe O:23046 WAIT. ON. READY 7} CALLSWAITR EADY AP+12( 104412) WAIT ON THE TNeapy BIT TS 

seSe OIESEO 013iSe WAIT. FOR. XFER » = CALLSWAITXFER TRAPSIIC IPSS ISS WAIT ON XFER REQ. 
; 
{ 


nm ee cow -— — me ee a te ee oe ee ee + ns | ne ee ree 


fisiaihahs ir: 
SBBSRRES § 


a) 
Ue 


GIGIGIG) 
GIOIA GD 


sm 


o 


8 


sd mt mt, IWIGIGIGIGIG) 
IOICIGIGIGIGIOIGIGS 


od 


J 
eT eT eT er et ed ed ed et et 


totste 
—“OwW oO ous titer SRA Goh 


rene 


COGIIGIE 
UCU Ie 


ich) 


EO? 


W982 TEST gEART 2) MAINDEC-11-D77ag-<¢ MACYLL 27(722, L9-GUG-7E 11:5: PAGE 63 
OWES DOWN AND UP ROUTINES 
-SS7TL PUWER DOWN AND UP SOLTINES 
£  REFREFLFASSSSSELSSESERAS SLE SLE SL ESELELSESL LF RSLE FES EFS FALE ASSS SF 
_ re _ 2 POUER OouN ROUTINE 
562 O12737 uses D000E4 SeeDN: SSILLUP SePURVEC ;;SET FOR FAST UF 
6570 Olers7 000340 o0o0z6 MOV 83 340 gaPuRvEC+e sek R10:7 
6576 i004 MOV 0,-{SP PUSH RO ON STACK 
6600 010146 MOV Bi +2(Bb} :;PUSH R1 ON STACK 
B60 2: ae MOV Re, -(SP) ;;PUSH Re ON STACK 
66 10346 MOV R3'-(58) ::PUSH RS ON STACK 
£606 O10S46 MOV RY, (SP) ;;PUSH RY ON STACK 
6610 010546 , MOV RS,-(SP) ;;PUSH RS ON STA 
Ble OTHE 162322 MOV 33 Hg xiee 3 3 PUSH gSuR ON efhcx 
bb22 Olers? O1s634 o00024 MOV et JBPURVEC’ roget iP VECTOR 
6630 99000 HALT 
6632 00077 =e 72 ;;HANG UP 


Pale ee ee ee a 
0 U U 
C1E634 tee 936726 ocdce4 tpiace: me ae. 3zS87 ‘ FAST DOWN 


Dissse O167D6 BASSES 0 T 
Ole646 005067 o00060 CLR SSAVRS’ WAIT LOOP FOR THE TTY 

16652 60S2e7 9000S4 1$: INC SSAVRE SiWAIT FOR THE INC 
DiSESE OOls75 BNE 1§ F WORD 

6660 012677 162254 MOV (SP)+, OSWR ; $BOP STACK INTC aSWR 
OlESE4 12605 MOY (SP)+/R5 ::POP STACK INTO RS 

6656 0125604 Moy (5P}4'RG ::POP STACK INTO RY 
518670 Ole-93 MOV (5P)+'R3 ::POP STAC 
516672 O1es02 MOV (SP)+’RE POP STACK INTO Re 

6674 Ole69; Moy (SP +, RI $s POP STACK INTO RI 
O16E7E 012600 MO (SP)+ :POP STACK INTO RO 
016700 Ole7s7 oigste sonces MOV sePuReRS 2EPWRVEC’ ! ioe UP THE POWER DOWN VECT 

6706 012737 OOCS4S d035ee MOV 340, aaPWRVEC+S ; PRT 
O16714 10440) TYPE ‘hep Bort "THE POWER FAILURE 
Sie716 Olb724 SPURMG: .WORD  $POWER : s POWER FAIL MESSAGE POINTER 
516720 Ole7ié MOV (PC 4, (SP) RESTART AT PhRST 
O16722 O0ee06 SPWRAD: .WORD PWRST’ : RESTART ADDRESS 
816724 ocpcg2 RTI 
Sit7e6 00006 SILLUP: HALT 3; THE POWER UP SEQUENCE WAS STARTED 
Cig730 800776 BR 2 BEFORE THE POWER DOWN WAS COMPLETE 
Sie722 890000 SSAVRE: 9 it PUT THE SP HERE 
516734 GOSS O47S52e0 CHeSe7 SPOWER: .ASCIZ (15><12)“PONER™ 
Cig74e 606122 

LEVEN 


——————————— ie ee ee ee A A OO AE i LE AE NL TE EC ET A I CT CS LE ce a ONE 


‘nl 


hn 
mun 
ere? 





ee ee Sn ene 


7330 041520 Oe0040 920040 OHS: ~ASCIZ /PC TACS EXPECT RCV‘D/ 


Owe VERA 


7366 4041520 Oe0040 Oe004C CHE: sASCIZ “PC Tacs BR LEVEL’ 
7374 O2004C 040524 051503 


1 7Sll BRSIS LOaIC TEST .FAST 2) MAINDEC-11-D2TRE-¢ MACYAL 27°7Sze; lg-6US-75 11:52. FaRGE 73 sea 5083 
_ O2TREC. NEW POWERS DOWN AND UP ROUTINES Seo SCg3 
soe O18744 O82200 O44S22 O42Se5 MSGDRV: .wSCIZ «CALE “DRIVE(S)7 ° 
sos3 G16752 O81450 Cs7451 cOods> 
s#0 018760 O0501§ O40Se4 051503 MSGASK: .ASCIZ <15><le>/TACS*- 
S34; levee COG07; 2 pie a 
ss42 016770 OS2i103 OS!117 MSGVEC: .ASCIZ ~vECTCR?- 
ss#3 018776 000077 
3344 017000 951120 O47511 44522 MSGPRI: .ASCIZ /PRIORITY?’ 
Se5 0i7o0e Dsisey 00077 ni ante 3 
S346 O170ie O40Se4 OS1503 O0COTS MTacS: .ASCIZ “TACS=/ 
2347 017000 OS2050 C42101 O36502 MTADE: .ASCIZ / TADE=/ 
335 Biches Boe 42526 O52103 MTAVEC: .ASCIZ ECTOR 
5 "i c i 1iRWELS .mSua f URS/ 
SISu ‘4 os ‘ 
335 BY SRSS 95:11 acaeee 
335i 017040 950040 O44S22 OS1117 MTAPRI: .ASCIZ / PRIORITY=/ 
S352 017046 OS2l11 03663, 000 I 
3353 017053 O1S O87Sle O37513 MSGOK: .ASCIZ <«i5><1l2>-/0K?/ 
$364 017060 008 ‘ 
2355 017061 131 051505 000200 MYES: eASCIZ /YES/<CRLF> 
2356 017066 OSele3 952101 051525 EM: eAsCIZ /STATUS PROSLEM- 
3257 917074 O50040 O47See 046102 
3352 017102 O46505 | 000 vee a 
3358 617105 O42 O42See O4Z101 EME: oASCIZ /“READY” FGILED TO SrT/ 
Sst0 Q17lle G21131 G43040 O44S0! 
S21 017120 042514 20104 047524 
33c2 Oi7ise Osiadd OS2105 | O00 ae 
2363 017133 O42 OS11e4% 047101 EMS: wASCIZ /“ TRANSFER REQUEST” FAILED TO SET’ 
S364 017190 O43122 051105 9513040 
3265 017146 O50S0S 2Se5 O0Sel23 
&& 917154 O20042 O40S06 04611: 
3387 G$17162 O4210S OSe04C O0201i7 
S368 017170 O42523 00124 . aly boas eee 
3639 017174 O8412e4 920105 OS112e7 EMS: ~ASCIZ /THE WRONG FLAG SET/ 
370 Oi7e02 047117 920107 046106 
3371 017210 043501 051440 052105 
$372 017216 000 : 
2373 917217 164 052191 920101 EM: .ASCIZ /DATA PROBLEM 
2274 O1722% O51120 O81117 C4e514 
3375 Oi7e32 000115 : 
237& 017234 O47111 O4eSe4 OSllee EME: -ASCIZ /INTERRUPT PROSLEMY 
3377 917242 OS01e5 Oe0le4Y 051120 
2378 017250 941117 042514 000115 é ss 
2375 917256 041520 Se0C4O Oe0040 DHI: ,ASCIZ PC Tacs’ 
3380 017254 Cesc O4uSe4 051503 
338i 017272 000 
3282 017273 120 020103 O2004D De: oASCIZ /PC Tacs WAIT ADDRESS. 
2383 017305 O20040 OS2040 041501 
2284 0172306 620123 O20040 053446 
2 017214 1 O20124% 042101 
3286 eed 051104 051505 000123 
0: 
01 
01 
0) 
01 
01 


CUCU CUGIGILIGS 
LOCO CUCU GIGIGIGG 


Varvara) 
ture 


wane 


6OW 


A IGIGIGIGS 
cons 


JI ILIIGIOS 


itotolololotolotul: 
La) 


PCOTU ERO Ore 


G30 TES? FART 2) MAINDEC=11-D2TAG-C MACYLL 27(752) i9-AUS-7E 11:53 PAGE 7: $65 S064 
POWES OWN AND UP SOUTINES SE. 02 
Q20040 29049 051102 
O46049 C5395 O4SiCS 

meee , 
117420 EVEN 
1316 OC1162 OOCCOD OT1:  .WORD  SERRPC,SREGO.O 
001118 001162 O012e02 O72: WORD SERRFC,SREGO,SAVPC,O 
we 

abit gor1e8 OdLle4 OTs “WORD © SERRPC, $REGC, $0087, $800A7.0 

2tk wee. 

OSi116 OO1162 CO1i24 O76: WORD  SERRPC,SREGO,SGDDAT,© 


i: WORD SERRPC,TACSL,S 


g 
T202: .WORD SERRPC,O 


116 20117 051194 EM202: .ASCIZ “NO DRIVE AVAILAELE” 
953111 d2010S 963101 
44501 O40514 46102 
Docics ae a2 
041520 20040 OZ0049 ODH20L: .ASCIZ FC TACS 
20540 o40524 o515c3 
as 
129 oco103 OH202: .ASCIZ /PC/ 
00050) END 


a mm ne i nn ee ne ee ne i tn ee emt en nn ne ee nee 


=z 
at 


G96G96)7. »- 


IOCIIOCIC 0-40-40 4-8-4 


£G3fur-O 


ar 
Be trite 


DOO COCO UD TOOO DOLD 00 00 CO CO COCO OI LD CO OC CO CO CO OO P Dr 


4-4-4-4-4-4 


4-4. 
mt 
wm 


& 


4 
10 00 00 8 OO Ob OO U8 Ob 08 Ob Oe ek te Oe Oe Oe Oe te Ob ne ae ek ee te oe 


N£WtueEe-O war) 


UCD NICH UNE GIT = 8-2 9 C0909 


0 4-40 40 40-40-46 40-40 40-00 4b 40-40-0040 00-00-60 40 40-00 40--4b 40-40-6 
4 


oe bactee fee bene Det Pee pe pee Pa tee bom per per pe per nee pe 


C 
“UE 


———— SS eee eeeeeeeeeeeeeeeeeeeEEeEeEeEeEeEeEeEeEuEeEeEeuEeEeEeyEeeeeEeaeaeaeaeaeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeeaEpEmmma9EaEEmumEEaEoaEaEaeaEaeaeEeaEeEeEeEeeeaeeeeeeeeeEeEeEeEeaEOaeeeeeeeeeeEeEeEeEeEeEeEeEeEeEeEeEeEeaeaeE==~eEeEe————eee—eeEEEOEEOEOEOEeEeEeEeEeEeEeEeEeEeEeEeeeeEee——eeeeeeee ee a ee... ara 


¢ LOGIC TEST (PART 2) MAINDEC-11-D7TAB-¢ ACYL 271732) 19-AUS-76 11:5: PAGE 72 Sf3 Coes 
W CROES REFERENCE TABLE -- USER SYMS2LS ci5 2665 
012364 S63 128 
013254 55 0 2480s §8= 2503 
901632 2568 «= 6Sie 60 EB} 
aieb eg’ le Ec*, 653 Eo £44 Sue 
051236 53) G75% 
60137 232 4S3e 
091376 223 42 wets 
031404 234 uaF g . ; 
OOis15 3793 4S) 334 SES 4598 
05008: 1sée 
900001 iSée ses ecg siaeseeSieSIGSsC2S1 
500062 1658 6 :g5 e070 ess?! 
960994 id4e = 184 206 
609919 15380163 205 
O00020 iSee lé2 204 
59040 iSie =: IE 203 
959308 1508 «166 ete 4 
950208 153g = 159 201 e816 2918 
995499 148% 1&2 399 «8=—s_ 8298 
051900 1478 8615? 199 2306 2370 
900932 itse is 
052009 is6@ = 188) 2384 
094090 1458 197 2313 
610998 i449 196 
9000 isge 6185s 2K 
640660 1429 «6194 )~=Sss BBY )SsCGSS7 
190096 14] 193 bee 
650004 S48 
550010 i638 
596029 izes 
600940 1618 
909109 1608 
pag200 1SSe 
980400 1588 
951000 1578 
614654 269% 28348 284: 28c8 
000014 1738 p. . 
sislalapts iese 40668 )2~SCfsié«a2SOS)«=SsiéidiS@9)=Sts:‘éi«d2D)2SCfs«éid&S8O~=3's«é«édi?7S@#«=Cési«éidk783”~=té‘«éLNH=SsCiaB#S)=Ss«iédas9dS@=Stsi‘iigg2~—=Ctéiédz; SMP 
2024 2163 186 a 
po0906 1658 664 1447 1562 1676 73! 41739 «©6!928 ©2797 
014512 541 27948 2795 260 
6517€2 Ess Sé2 Seis 
O02046 £208 “ 
TO4S406 2262 23% 2369 22878 
o0ci5 Sie e965 25995 s 
040960 19%@ 1873 §i6 1992 20s2 
013774 2028+ 2035 e046 2585 2606+ 26138 
ot200 *# 545 2956 2995 3338 3365 


0172 41B 3379s : 
017273 4e4 4390 EBD 
017544 456 34178 
01756! 4E1 34208 
O17320 442 33874 
D173bE 448 33528 


c 


= eMSsy weer 
CoTABL. NEW 
CISFLA OCLINE 
DISPRE OOOl74 
J.CRE Q1SES4 
DRVKEY OCl2<4 
DRVPNT 0601220 
eSWR = 377570 
cr. bares 
vié O174cé 
vre0l  Q17460 
OTele S176 
ore DI743é 
OvS 017459 
EMTVEC= CO0030 
EM} $1706 
EME C171os 
EM2e20 O1l74#7e 
EmMe02 386017521 
M3 017133 
EMS 917178 
EMS 017217 
EMS Di7es4 
ERROR = 100090 
ERRVEC= OOCO04 
EXAM Ois04é 
EXIT 013354 
GAP_ = 904000 
FUNCTI= O90016 
FUNCO = 900002 
FUNC] = O0CS04 
FunCe = 000010 
SNS = Fe¥SH4 
GO s 090001 
GTSWR = 104405 
ERE 081740 
MGHTIM 013124 
HT §=6©= 900011 
ILes = 0000e0 
INT. EN= 600100 
ISTVEC= 000020 
ITEMSe 001316 
LERDER= 025000 
LF = 200012 


cnn 


Pas; 2) MAINDEC-i1-DiTas 
EFESENCE TRSLE --"OSEF 57 
352 Sit S24 

EiSs E24 
2023 257 ga 

Se 33ST 
esc 

238 S344 654% 

o7s 364 $25 
419 23988 

425 431 437 
4S? 34958 

46¢ 34078 

443 34018 

44s 34038 

176s 493% = S00 
417 33568 

423 32598 
45534098 

469 34138 

429 33638 

435 33658 

441 33738 

447 33768 


8 ee re er ae ee eee 


5&7 
16S S13 Si4* 
bel £25 629 
2499 2504s 

1978 1449 1483 
2098 

2078 203 

206s 203 

205s 203 

ze S44 £72 
2232 . 
2088 303 306 
784 623 825 
1441 «1547 1467 
1524 1526 1532 
i$93 1610 iéle 
1719 17le 1714 
177 1778 1783 
1831 1893 1902 
20es 2136 2138 
2s68 2691 2722 

6393 687 2Ble 

£30 S32 S43 


ee ee er ee 


- ~— ae 
-' = - 
- Pty *-s -! ~—— 
“= - 
_———- 
- ~-e-—- 
-~s= + =~ se +s 
— aes 
__—- -_=_- -_-—: _“—= 
- — ——— -_ - 
——~ ——~ “= « 
. == -~==., mame 
£ce = = a-ha ~-=<—- + 
wee ——~ ——~ | <7 


1736 1741 1780 1873 
S2S# 58+ 587s 2289 
2503s 


325 «328 «= 693s 710 
82712521295) 1303 
1465) 47] 1477 1478 
15241536 s1S54 1556 
1618 «= 1620S «1221 2Y 
1722 «1784 )~= «1726s 7al 
1804 «1806 1814 1816 
1904 «3957 19591967 
ei42 2152 «Bibs 2168 
2725 e750 75h 2778 
e825 2831 3205s 

cue 


1733 1775 


halal 


--—- 


3288 3289 3290 3291 
733 771 77 782 
1368 1371 1437 1433 
1497 1499 1505 122 
1581 1587 1589 1591 
1646 1654 1656 1658 
1789 1761 1769 1771 
1844 1859 1851 1889 
2006 20C9 e024 2026 
e205 2230 e636 2639 
e842 e860 
1616 16S2 1720 i767 
2040 2158 218! 2219 
1303 1335 1398 
e672 2695 2727 2730 


TALL BASIC LOGIC TEST (PART 2) MAINDEC-11-D27TAE-¢ ACYIL 271732) 19-UG-76 11:53 PAGE 75 Sf 9067 
O27 Aes. NEW CROSS REFESENCE TASLE -- USER SynSocs ce 3267 
ooP §=s«23300 2487s ©6250) 
LOOP: 990590 231g 292 
LOOPe  §o5600 ie aie 
LooP3  ood760 323e 0334 
ANUAL OODIEE £40 buce 
MAXCNT O13150 Gooe ide C7150 71Ge 0 717# «62422 He 24S! 
MSGASK O1E760 2513-33408 oa 7 pies plies 
MSSDRV DIE74S 2488 33388 
MSSID 01712 $33 Suse = 6 53 
SGox 017053 25600 23s3e 
MSGPRI 917000 25360233448 
MSGVEC 916770 ober aes 
a nn a 
MTAPRI 017040 2557 0s «433818 
mYES  BESoE: Steg | Saces 
| ¢ 4 
NEXT 913334 a ne 
nore. OTSae4 suse Sages 
NOTLGL O12346 e485 HSE BEDE «= ESOS 
NXTORV 915002 2634 e666 2685 e720 2748 e776 28818 
grim Be cet Fat 
PATTRN Oiness eels 2B27* 2835s 2849 2859 
PTRovE= 000240 1803 
PRO = 900906 1038 
Pri = = 909040 1048 
Pre = =-:O00100 i0Se 
FRS = 2000140 196% 
PRS = OC0EOD 1078 
Pes = 090040 1088 
PRE = 000300 109% 
PR? = 080340 1108 
S = 177776 638 gi 657 914* 923% 926 Sex 971% S74 10108 1019% 1022 1055s 
1067* 1070« 1106+ 11i5* 1118* 1154* loge 1166 1202 i2il* 12l4* 125d" 1259« 
ie sori lebes 1297 1305* {i309 13078 i34ee 134% 1396% 140l*e 1413" 1415 
= = f 
PURST 992206 6538 3330 
PURVEC= 005024 1758 ~SOa*  SO4* 3297% 3298% 23307% 3313% 3325*  3326% 
ROBLK 614722 2694 2753 eases 
CHR = 104407 2561 3146 32888 
I 64410 2482 «= 3010 Ss: 32898 
PDOCT = 104411 2514 e528 2537 32908 
eosua 014150 2370s «eee =. 2 8B 6 
= 900004 Aes 328 7234 R60 ««1S93)s:«é«dk&72~Sésé‘«iBGSC<i«é‘«‘aG LS =SCé8SOY~Ssa198Q)SsPHSCiéktEECC*«éEzDS 
REGDY = coDo4O “2038 © _ 304 311 326 333 694 1336 2093 ° 2097 2102 2149 2201 24e7 
aceite ancl z4S7 2637 2669 «= 2eS2s—i‘éi7S)Stiéi27S)~=Ssi2779—Cté—é‘«iKYCis«éD]St=«é'GODG 
PEWIND= OCOOLE 169 303 325 693 710 731 771 782 923 ago -—s«292 3 
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Tell Sesic mew od 
OZTREC. NEW 
Savec 46 OC 102 
SAVPS§ 901204 
SETBUF 014544 
SFBG = 000914 
SFFG = O000le 
SFFG Bh tee 
STACK = OO11 
START O02220 
STKLMT= 177774 
SWR 001142 
SWREG 900176 
SWO = $0000] 
SwOO = 00000i 
SWOi = 900002 
SWo2 = 090004 
SWO3 = 000010 
SWOY = 09002 
SWOS = 000040 
SWwO6B = 00010 
SWO? == 000200 
SWO8 = 000400 
SWOS = 001000 
/SWi = 000002 
SW10 = 002020 
SWii = 004000 
SWie = 010000 
SW13 = 920000 
SK14 = 040000 
/SWwiS = 100090 
SWe 4=6©= 000004 
~$W3 = 000010 
/ SW4H = 000020 
SwS == O00040 
SWS = 000100 
SW7 = = _- 000200 
Swe = 000400 
$W9 = 091000 
/TACSH 901210 
TACSL O21e06 
TADBH 901214 
ADBL OOiele 
TAPRIO OOleee 
TAVEC O0121E 


TBITYE= 000014 


TORV 002310 


0 
TPVEC = 000064 


[cet ene 


TES” (EQRT 3) 
CROSS REFERENCE 
3858 e424+ 
3868  e4ebt 
2660 2714 
1e8e S76 
1878 872 
240 7718 
748 4S5 
&Se css 
Ss 
231 309 
e313 2ss4 
e318 = 3043 
ecSs S23 
1388 
izes 138 
1278 127 
l2é8 i3t 
i2Se 135 
lose 134 
L238 133 
l2ee 132 
leis 131 
les 130 
1158 123 
1378 
1:88 
1178 
1igés 
1158 
ll4s8 
1138 
1368 
1358 
134% 
1338 
1328 
l3ls 
1208 
1298 
3638 eSeck 
388% 583 
3405 
2318 225s 
3908 659 
3938 929 
1217 lee! 
3928 480 
1014%  101S* 
1159* {183% 
131S5* 1316 
2sss 
1718 
667 6698 
198% 753 
178% 
1798 
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MAINDEC-1i-DZTRE-C 
TAGLE -- USES SYMBOLS 


KO? 


MACYA1 27 (732) 


1+ i > 
19-66-76 


e425# 244: 23524 24554 2469 3335 

2449 24S4+ 2468 

ee08s 

1536 1591 1&22 1624 lees 1946 e756 
1481 165 1sé4 17ze 1773 1936 2781 
2775 2786 é ss 

e623 ebb! 2654 2715 2742 2771 

ees4 

otha 492 SiS+# S17 Soa* 537 S 
236! 2366 2370 28ic 2214 2egis 2223 
2080% 3305 2318 

527 ges 28it 2823 2828 3042 2056 
Seg 

658 2e519* e522 2s4g 2630 ebb2 2685 
2S2b* 
eSel* 2525 2552 2631 2663 2685 2717 
933 977 981 1025 1029 1073 1677 
1265 1269 2s47* 2558 

97% 655% 656% 918% 919% 943% S44 
1039* 1040* l06e* 1063% 1087# i088%  1110% 
1184* 206% 12e07% IJlesl* 232%  leS4s  1255% 
1331% 1i332% 13534 i1354* 1391% 13s92% 410% 
B11 849 


2298 2399 e306 
2529 e861 2915 
e744 772 2903 

2773 

112s 1189 1173 

967% 991% 992% 
1195® 1136% 1158% 
12e8Cx 1299% 13008 
l4el# 2533% 2535# 








TALL BASIC LOGIC TEST <FART 2) MAINDEC-11-D2TAB-C MACY 27(732) 19-AUG-76 11:5: PAGE 77 560 0929 
| DZTABC . NEW CROES REFERENCE TABLE -- USES SYMSOLS 5&2 0024 
| TRAPVES 900034 177# «= SOs S02 
TRTVEC= OO0014 i728 
| TR.REG= 009200 20ie 1336 
TSt1 002436 691 | 70a 
| TSTio 904150 10538 
| TSt11 904s5e 11018 
| TStle 904554 11498 
| TSt13 04756 11978 
TST14 005160 12458 
TStis 005362 1286s 
TSTi16 § 905554 132ee 
TSti7 905750 13608 
TStT2  O0eS16 707 7258 
TST20 © OO6246 14318 
'TST21 006370 14341456 LYE LB 
| 7Ste2 006510 1464 1484s 14898 
'T5te3 + O066e¢ 1492 «151115168 
/TSTe4 © O0E74e isi9 = «1539s 15488 
| T5725 997050 165i 1568 «= 15738 
| T5726 007176 1576 «91599 = 16048 
| 1STe? 907324 1607 1630 16358 
| 7573 728 = 760 ESe 
T5730 = 007574 1638 «6 «1634S «17038 
TST31  O1C000 1708 «=6«1745—Ss«1 7508 
| T5732 «o10172 1753. 1789 «= :1788 
T5133 010330 1801 18338 
| T5734 010516 1835 1874 18838 
T5135 010776 1e88 «= «194_=Ss«1 9518 
rST36 © -911160 1954 1993 19968 
tST37 -O11412 2001 2053 2071s 
Tét4 = =—-00306e 768 4 8©= Ble 7% 
Tét4o «6011552 2074 207Bs2lede 
TST41 «(012134 2127 2129S Beet = 22268 
(TS7S «© 03342 620 882 905% 
TéT6 39 OO3544 9578 
(TST? «= 00374 1005s 
TYPE «= 104401 S32, 6S3)tié‘éé7O~~OC«éSS~=si‘éi‘ HG ORPSH OSES DEH 2386S 2395 = 2397 0 2400 2402 
| cao «SC244)=Ss4BD)=SsSO2 Ss «2513s Se?) 53hCw54S = SS] 5S4 = e557 0 SO) 2567 
| 2569 2859 08H 088 3058 «3071 «= 3082Ss«s301 «Ss 3150 «= 1833157 = 3232) 32808 
TYPERR 012730 2363 23868 
TYPOC = 104402 24112550 «= eSS3.s SSG 22559 = «3057 090s «3281s 
TYPON = 104404 32838 
TYPOS = 104403 32828 
UNIT = SOO400 Sooe «= b6BSsC«O79.—s—«iBOS 21322133 2887) 2907 
WAITRE= 104412 7 ae 2+ i ce = Se cc i | a a a. ie es 
| 195001367, s«138dSsi«aMSs143B)1440144eh4SssHeBStH70.—ss1476 «1478 ~—s 1480 
1482 «691496 )«=— 1498S ss«s1504 = «1506 3 1525 1831 1533 1535 1537 1585 156 


2 8 2 
WAITYF= 04413 734 775 777 785 828 1304 1372 L442 L444 1472 1474 1500 150e 








TALL BASIC LOGIC TEST (PAR MAINDEC-11-D2TAE-C MACYLL 27(732) i9-AUG-76 11:51 
D2TARC. NE CROSS REFERENCE THRLE =~ USER SiMBOLS 
1527, «1529155759 ISS 1SE4 = LESLIE? 
1719 «1762 = i7e4 = s17EGSsBO?)=ss1809=S sisi] «= iSi? = 1823 
1995 1906 1960 1562 1964 1970 1975 3873 1983 
2153 BiSS BIS? = BGS «Ss 2i75 180 «= 2208S? 
WAIT.F 913152 2449" 3092 
WAIT.O 013046 24218 329] 
WAIT 013076 e4ue7e §=2435 = 2438 
WAIT2 O131Jo0 Pr ee) 
WAITS 01312 2409 «e432 24408 
WAIT4 913119 2430 9 24338 . 
WG == 000000 1828 «= 712i 1295 1362) 1439s1ME91477)1497)«1S24 5321597 
M18 1GH} e549 IGEN 17121722178 17e9_de4l ie81 1880 200E Bae 
WFGSUB 013776 235 «bese «2832 GY 
WGBLOP 014234 7158 2733 
WGPBLK 014230 238 = 2714s 
WLOOP 014066 26518 2675 ; > 5 
WRITE = 000002 1838 «30h 7330Sss773)s—iBE7?] Ss BSEFSC«d1DOD)ss1371 0 1441—s1H71—s1H99s1526 IESE 
158] 1612 IBHE EB A7IH 1751 0B EBHHse3iseH 198220082152 
4 
| WRTBLK 14660 2671 2729 e2e4ie 
WRTLOC= 010000 1968 = 2914 
WRTSUB 014062 236 © 26608 
$AUTOB 001134 3618 = S4ie 3051 3172 
| $B 001122 3568 
| SBDDAT O01le6 3584 2350% 3401 
| SBELL 001172 380% 2356 2382 
| SCHARC 015366 2961 2971+ 2978 2987+ 29928 
SCKSWR 915474 30438 3267 
SCMTAG 001100 s448 4900's 4S9—sisSS— sEDSC*«‘SO 
$¢M1 == 000002 3768 «3778 «=: 3788 
'$Cm2 = 900004 376% ©3778 «= «3788 
$03 = o00002 3744 376 
| SCNTLG Ol62e1 3054 31678 
SCNTLU 016214 3071 - 31668 
SCRLF 001177 3824 676 2365 2382 2386 2397 2402 240 20 2995 3082 3166 
| SDOAGN O1224e 2250 2eSh ebee 
SENDAD 012232 531. 59 647 22588 2377 
SENDCT Oleele 505 _22S2n 
| SENDMG 912251 2254 2ebes 
'SENULL 12246 22b5m 
SEOP -Ole1s6 2o4ee 
'SEOPCT 012204 S0S* 22498 2253 
'SERFLG 001103 3478 2273 2302 92304 2310* 2331 2351* 2392 
RMAX 0111 3538 S08* 2304 e326 e321 
SERROR 012536 499 «23458 f 
| SERRPC 001116 3548 2358 2359* 2360 2382 3398 3399 3401 3403 3405 3407 
SERRTB 001236 Wl2e 2393 
SERTTL O0111e 3518 2357% 2382 Z 
SESCAP 001170 3798 «= S07 «= 728k «= 768 «= BPO «=e «= 959% = 1007 §9=10SS* 1103 1151* 1199% 1247s 
| 1289% 1324# 1363 1434* 1464* 1492e 1519* 15514 1576s 1607* 1630% 1706x 1753s 
| 160ix 1636# 1886 i954* 2001* 2074" elev 2326% 2382 
SFILLC 001156 2724 «2364 = 2995 
GFILLS og11s5 3718 2995 
$G0ROR 001120 3554 
SGDDAT 901124 3574 2349% 3401 3403 
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OZTABC. NEW CROSS REFERENCE TALE <- USER SiNBOLS 

Scere o122e2 22558 

$GTSWR 915544 3055# 3285 

SHO = 900000 il 

1472 2027 30328 fe 

: 01104 3488 2317* 2318 e320% 2330 

SILLUP 016726 3297 3313-33528 

SINTAG 001135 3628 3083 

SITEMB 001114 35e8 2360% 2382 2388 

$F 01200 383n 2382 4602995 = 3157 3b 

SCPADR OO1106 3498 «505% 727% 767% 819% 910% 959% 
12084 1362% 1433% 1463% 1491x 1518%  1550% 


SLPERR 001110 350 «Side 2308 23e4* 6330 2372 2633+ 
SMAIL = xxxexe U S27 5372323 asbeCSCi‘iéSH 
NEW 016237 3058 31708 
WR Olb2e6 3055 31688 
SMXCNT O12534 2321 23308 | 
$NULL = 001154 3708 2995 
| $NUTST= 090001 7018 7628 «= B14R «= 0be SHR = 10028 





|; SOCNT G16472 Se04*# 3233%  3e4bs 
| SOMODE Q16474 3199% 3203%  3c08 S2eli# 3222% 3248s 
‘ $OVER O12e520 2285 2301 23093 2319 23278 ® 
, $PASS 001159 3458 660 70& 2c46* 2247*% 2265 2315 2231 
' SPOWER 016734 3328 33358 

SPWRAD GO16722 33308 
| SPWRON 0165 503 32978 3325 
SPWRMG 9167 33288 
| SPWRUP O\6634 3307 33138 Pe 
'$QUES O01176 2818 2382 2502 e567 e33s 3101 3156 316 
, SROCHR 015756 21148 3288 

= FREREE 

SRDLIN Ol16576 31428 32895 

, $RDOOCT 015372 200S#% 3290 
SZ = 0090910 31358 
SREGAD 001160 3748 i 
COllb2 376% 2347% 3258 23593 3401 3403 

SREG] OO1164 377% §©2348* 

SRTNAD 012244 2cb4e 
| A = eeuKEE U 3251 
§SAVRE= eeneKe UJ 3291 
. SSAVRE 016732 3306% 3314 3315 3316% 33348 

$SCOPE 012264 497 eckes 2 . 

SSETUP= 090137 4768 436 497 499 501 503 sos S06 507 509 531 534 2244 
2233 2346 2369 2377 3038 3172 
SSTUP = 177777 476% 

SSVLAD 012472 2233 23228 

SSWR = 167400 ls 11 be 63 54 65 66 67 6 78 375 380 S50 

507 509 510 705 726 766 818 910 9s 100 105 1102 1150 
1198 1246 1287 1323 1261 1432 1462 145 


SSWRMK= 009000 68 69 2278 2279 2300 
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GLOBALS GENERATE 
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